ggplot2热图条件着色求助：实现渐变与纯色分段效果

你的代码有几个关键问题导致无法正常运行，我帮你修正并实现你想要的效果：

原代码的问题点 #

• 没有将x、pathway、value组合成数据框：ggplot绘图必须基于数据框输入，你直接用data但没定义它
• scale_fill_gradientn的颜色逻辑错误：这个参数需要的是定义整个颜色映射的向量，不能用ifelse逐元素判断每个value的颜色
• x是数值型变量：直接使用会被当成连续轴，导致热图方块宽度不一致，应该转成离散因子

修正后的完整代码 #

# 先加载ggplot2（必要包）
library(ggplot2)

# 1. 创建数据框（这是你遗漏的关键步骤）
x <- c(1,2,3,1,2,3,1,2,3)
pathway <- c("a","b","c","a","b","c","a","b","c")
value <- runif(9)
data <- data.frame(x = factor(x), pathway = pathway, value = value)

# 2. 定义颜色方案：红色到白色的渐变 + 黑色
jet.colors <- colorRampPalette(c("#FE2423", "#F56C76", "#FCBEC3","#FEE4E6","#FFFFFF"))
nbcol <- 50
color_gradient <- jet.colors(nbcol)
color_full <- c(color_gradient, "black")

# 3. 绘制热图并设置颜色映射
ggplot(data, aes(x = x, y = pathway, fill = value)) +
  geom_tile(color = "white") + # 加白色边框让色块更清晰
  scale_fill_gradientn(
    colours = color_full,
    # 手动设置颜色对应的数值区间：0-0.2用渐变，0.2到最大值用黑色
    values = c(seq(0, 0.2, length.out = nbcol), max(data$value)) / max(data$value),
    limits = c(0, max(data$value)),
    oob = squish, # 确保>0.2的数值直接映射为黑色，不会溢出
    name = "Value"
  ) +
  labs(x = "X", y = "Pathway") +
  theme_bw() # 可选：用简洁的黑白主题

代码解释 #

• 把x转成factor(x)：让x轴变成离散类别，每个热图方块宽度一致
• 颜色向量color_full：前50个是红色到白色的渐变，最后一个是黑色
• values参数：将0到0.2的范围对应渐变的50种颜色，0.2到最大值的范围对应黑色，通过除以最大值把数值缩放到0-1的颜色映射区间
• oob = squish：强制把超过0.2的数值“挤压”到最大值对应的颜色（黑色），避免颜色溢出问题

如果需要更简洁的颜色映射逻辑，也可以先对value做处理，比如创建一个新变量：

data$fill_val <- ifelse(data$value > 0.2, max(data$value) + 0.1, data$value)

然后把fill=value改成fill=fill_val，再用同样的scale_fill_gradientn设置，效果是一样的。

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