如何在ggplot2热图中手动设置色条范围，不受颜色截断限制？

问题根源 #

你之前的代码里，scale_colour_gradientn是针对colour美学的（比如点、线的颜色），而热图的geom_tile使用的是fill美学，所以这个色条设置完全没被用到，自然不会生效。

正确解决方案 #

不需要额外添加一个scale，直接在控制填充色的scale_fill_gradientn里同时设置色条范围和颜色截断规则即可：

1. 先定义实际数据值域和颜色截断范围：

# 计算数据实际值域
actual_range <- range(df$value)
# 你的颜色截断范围（由Q1、Q3和IQR计算得出）
trunc_range <- c(-0.09843, 0.811008)

2. 修改热图代码：

ggplot(df, aes(x=x, y=y, fill=value))+
  geom_tile()+
  scale_fill_gradientn(
    colours = c('#F2F8F9', '#5696AF', '#072238'),
    limits = actual_range,  # 色条显示数据实际值域
    oob = scales::squish,   # 超出截断范围的数值映射到截断点的颜色
    # 可选：添加截断标记，让读者明确知道颜色截断的位置
    breaks = c(actual_range[1], trunc_range[1], trunc_range[2], actual_range[2]),
    labels = c(
      round(actual_range[1], 2),
      paste("<", round(trunc_range[1], 2)),
      paste(">", round(trunc_range[2], 2)),
      round(actual_range[2], 2)
    )
  )+
  scale_y_discrete(position = "right")+
  theme_bw()+
  theme(axis.text.x = element_blank(),
        axis.title.y = element_blank(),
        legend.key.height=unit(0.175, 'npc'),
        legend.position='left',
        legend.title=element_blank(),
        legend.margin = margin(0,0,0,0),
        strip.text=element_text(size=13))

代码说明 #

• limits = actual_range：强制色条的范围与数据实际值域一致，满足你的需求
• oob = scales::squish：将所有小于trunc_range[1]的数值映射到该点对应的颜色，大于trunc_range[2]的数值映射到该点对应的颜色，实现颜色截断渲染
• 可选的breaks和labels：在色条上标记出截断点，避免读者误解色条颜色与数据的对应关系

内容的提问来源于stack exchange，提问作者Ssong