在R中绘制：每个类别的特定颜色

我正在尝试用如下数据构建热图：

dataset <- data.frame(ID = c(rep('population', 8), rep('sub_population', 8)),
       TYPE = rep(c('one', 'two', 'three', 'for', 'five', 'six', 'seven', 'eight'),2),
       COUNT = rep(c(1,2,3,4,5,6,7,8),2)
       ) %>%
mutate(TEXT = paste(TYPE, 'has:', COUNT))

---

我已经试过了：，但还没有找到答案。

谢谢你的提示！我试过以下几种颜色：定制颜色谢谢你的提示！我试过以下几种：定制颜色

plot_ly(
dataset,
x = ~TYPE,
y = ~ID,
z = ~COUNT,
hoverinfo = 'text',
text=~TEXT,
xgap = 5,
ygap = 5,
type = 'heatmap') %>%
add_annotations(text = ~COUNT,
                showarrow = FALSE,
                textangle = 45,
                font=list(color='white')
)