如何为ggplot2的geom_bar设置自定义最值的填充渐变刻度

你的代码存在两个核心问题，导致柱状图显示灰色且无法实现指定的三色渐变效果：

• 未将柱状图的填充色与TPH数值关联，ggplot无法识别颜色渐变的依据变量
• 使用的scale_fill_gradient仅支持双色渐变，无法设置中间值（50）对应的颜色

以下是修正后的完整代码：

TPH <- ggplot(ser, aes(x=Stages, y=TPH, fill=TPH)) +  # 新增fill=TPH，绑定填充色与数值
  geom_bar(stat="identity") +
  # 用scale_fill_gradient2实现三色渐变，匹配你的颜色需求
  scale_fill_gradient2(
    low = "blue",       # 最小值0对应蓝色
    mid = "yellow",     # 中间值50对应黄色，替换为"white"也可
    high = "red",       # 最大值100对应红色
    midpoint = 50,      # 指定中间值的位置
    limits = c(0, 100)  # 限定颜色映射的数值范围
  ) +
  labs(y=expression("Counts per million (CPM)"), x="Hours post fertilization (hpf)") +
  ggtitle("Tryptophan Hydroxylase", subtitle="TPH") +
  theme(
    plot.title=element_text(hjust=0.5),
    plot.subtitle=element_text(hjust=0.5)
  ) +
  scale_y_continuous(limits=c(0, 100)) +
  scale_x_discrete(
    labels=c(
      "hpf00"="0", "hpf04"="4", "hpf08"="8", "hpf12"="12", "hpf16"="16", 
      "hpf20"="20", "hpf24"="24", "hpf28"="28", "hpf32"="32", "hpf36"="36",
      "hpf40"="40", "hpf44"="44", "hpf48"="48", "hpf52"="52", "hpf72"="72"
    )
  )
TPH

关键修改说明： #

• 在aes()中添加fill=TPH：让ggplot根据TPH的数值分配填充色，这是实现颜色渐变的基础
• 替换scale_fill_gradient为scale_fill_gradient2：该函数支持创建带中间色的三色渐变，通过midpoint指定中间值位置，mid设置对应颜色
• 补充limits=c(0,100)到颜色刻度：确保颜色映射完全匹配你设定的数值范围

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