如何强制ggplot渐变配色为小于0的值显示红色，适配不同数值区间

解决方案 #

你遇到的问题核心原因是scale_fill_gradient2默认的midpoint参数设置为-1，导致0值位置接近midpoint，负值区间的颜色过渡被压缩，最小值无法显示为红色。以下代码可同时满足你的两个需求：

library(ggplot2)
# 示例数据
data <- data.frame(
  name = seq(1, 15),  
  value = c(4.5, 21.1, 32.8, 8.1, -44.1, -27.7, -1.5, 148.0, -30.6, 143.5, 486.0, 58.5, 226.0, 4.6, 43.5)
)

# 预计算数据特征，用于动态判断规则
has_negative <- min(data$value, na.rm = TRUE) < 0
val_min <- min(data$value, na.rm = TRUE)
val_max <- max(data$value, na.rm = TRUE)

# 基础绘图
p <- ggplot(data, aes(x = name, y = value, fill = value)) + 
  geom_bar(stat = "identity")

# 动态设置填充色规则
if (has_negative) {
  # 存在负值：所有<0的数值统一显示为红色，0对应橙色，>0的数值从橙到绿渐变
  p <- p + scale_fill_gradientn(
    colours = c("red", "red", "orange", "green"),
    values = scales::rescale(c(val_min, 0, 0, val_max)),
    limits = c(val_min, val_max),
    na.value = "grey50"
  )
} else {
  # 无负值：仅使用橙色到绿色的渐变
  p <- p + scale_fill_gradient(
    low = "orange",
    high = "green",
    limits = c(0, val_max),
    na.value = "grey50"
  )
}

p

可选调整 #

如果你不需要所有小于0的数值都显示为纯红色，只需要最小值对应红色、0对应橙色、负值区间为红到橙的渐变，可将if分支内的scale_fill_gradientn替换为以下代码：

p <- p + scale_fill_gradient2(
  low = "red",
  mid = "orange",
  high = "green",
  midpoint = 0,
  limits = c(val_min, val_max)
)

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