如何在ggplot2中自定义中间值与最大值的颜色？实现0为白、超2值同色

你想要的效果是让数值0显示为白色，所有大于2的数值使用同一种颜色，原来的scale_fill_gradientn是基于连续值的渐变映射，没法直接对超过2的值进行统一着色，我们可以通过以下两种方式实现：

方法一：基于连续渐变的截断映射（推荐，保留渐变过渡） #

这种方法会保留小于0到0、0到2之间的渐变效果，同时把所有大于2的值统一映射为蓝色，贴合你原始代码的渐变风格：

library(reshape2)
library(ggplot2)
library(scales)

ran <- matrix(nrow = 3, ncol = 2, c(-2,-1,0,1,2,3))
ran_melt <- melt(ran)

ggplot(ran_melt, aes(Var1, Var2)) + 
  geom_tile(aes(fill = value), color = "white") + 
  scale_fill_gradientn(
    colours = c("red", "white", "blue"),
    # 调整颜色映射关键点：最小值、0、2（替换原来的最大值3）
    values = rescale(c(min(ran_melt$value), 0, 2)),
    # 限定颜色映射范围为从最小值到2
    limits = c(min(ran_melt$value), 2),
    # 用squish把超出范围（>2）的值强制映射到边界颜色（蓝色）
    oob = squish,
    labs(fill = 'legend')
  )

修改说明： #

• 把values里的max(ran_melt$value)换成2，让渐变终点落在2，对应蓝色；
• limits参数锁定颜色映射的范围，确保大于2的值不再参与渐变计算；
• oob = squish是核心：它会把所有超出范围的数值（比如你的3）直接映射到范围边界的颜色，这样所有大于2的值都会显示为同一种蓝色；
• 小于0的值从红色渐变到白色，0到2的值从白色渐变到蓝色，完全匹配你的需求。

方法二：创建分类变量实现离散着色 #

如果你不需要中间的渐变过渡，希望直接把数值分成三类处理，可以先创建分类变量，再用离散颜色映射：

library(reshape2)
library(ggplot2)
library(dplyr)

ran <- matrix(nrow = 3, ncol = 2, c(-2,-1,0,1,2,3))
ran_melt <- melt(ran) %>%
  # 按规则创建分组
  mutate(fill_group = case_when(
    value == 0 ~ "Zero",
    value > 2 ~ "Above 2",
    TRUE ~ "Other"
  ))

ggplot(ran_melt, aes(Var1, Var2)) + 
  geom_tile(aes(fill = fill_group), color = "white") + 
  # 自定义每个分组的颜色
  scale_fill_manual(
    values = c("Zero" = "white", "Above 2" = "blue", "Other" = "red"),
    labs(fill = 'legend')
  )

这种方法逻辑更直观，适合不需要渐变效果的场景。

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