R 在geom_瓷砖中使用热色

我已经用一个自定义的比例文件渐变调色板创建了一个瓷砖图，但是颜色不太正确——纠正它是一个巨大的痛苦。此图显示了当前版本，但没有轴标签（数据尚未准备好共享！）

相反，我想使用heat.colors调色板。（我需要0值为白色，所以我认为绿色和类似的调色板在这里不是一个好的选择）

但是，我正在努力找到将heat.colors合并到ggplot2 geom_tile函数中的正确代码。有人能提供建议吗

下面是我使用自定义调色板的上一个版本的代码，以防有所帮助

ptile<-ggplot(dftabtile, aes(y=Var1, x=icd_ord, fill=Freq))

ptile<- ptile + geom_tile(color="Black", size=0.1) + coord_equal() + labs(y = "y values", x="x values" ) + theme_minimal() + xangle_theme

tile_red <- ptile  + scale_fill_gradientn(colours=c("white", "#f2e8eb", "#e5d2d7","#d8bcc3", "#cba6af","#be909c", "#b17a88", "#a46474", "#974e60", "#8a384c","#7d2239"), values=c(0,0.0001,0.1, 0.2, 0.3, 0.4, 0.5, 0.6, 0.7, 0.8, 0.9, 1), name="# Data points")

tile_red

ggsave("demo.png", width=400, height=200, units="mm")

---

ptile我不知道这是否会有帮助，因为您没有提供数据，但您是否尝试过使用
scale\u fill\u brewer
而不是
scale\u fill\u gradient

library(tidyverse) 

library(RColorBrewer)

display.brewer.all()

ftabtile %>% 
  ggplot(aes(y=Var1,
             x=icd_ord,
             fill=Freq)) +
  geom_tile(color="Black", size=0.1)+
  coord_equal() + 
  labs(y = "y values", x="x values" ) +
  theme_minimal() +
  xangle_theme +
  scale_fill_brewer(palette = "Blues")

您好-非常感谢您的回复，很抱歉反应太慢，但有IT问题，所以只能再次查看。不幸的是，出于披露原因，我无法提供数据。但是如果我尝试scale\u fill\u brewer，我会得到以下错误消息，可能是因为Freq是一个整数变量？“错误：提供给离散刻度的连续值”