r - 错误 : Continuous value supplied to discrete scale

Question

我正在尝试为离散结果(每个值使用单一颜色)制作热图，以便:

df<-data.frame(x=rep(LETTERS[1:10], each=10), 
               y=rep(1:10,10),
               value=sample(1:8, 100,replace=T))
colors<-c("green", "lightyellow", "yellow", "orange", "orangered", "red", "darkred", "black")
ggplot(df, aes(x=x, y=y))+
    geom_tile(aes(fill=value), colour="white")+
    #scale_fill_gradient(low="green", high="red")
    scale_fill_manual(values=colors)
Error: Continuous value supplied to discrete scale

有人知道如何修复它并将颜色变量应用于热图吗？

Answer 1

如果你想手动提供颜色，你需要映射fill为因子变量。

ggplot(df, aes(x=x, y=y))+
  geom_tile(aes(fill=factor(value)), colour="white")+
  scale_fill_manual(name = "Values", values=setNames(colors, 1:8))