如何强制ggplot颜色刻度对齐数据范围的中间值？

要强制让变量a取值范围的中点对准颜色刻度的青色位置，核心是手动指定颜色与数值的映射关系，用scale_fill_gradientn的values参数就能实现，具体分两种情况处理：

情况1：基于a的实际范围（0.001~0.7）映射 #

先算出a范围的中点：(0.001 + 0.7)/2 = 0.3505，然后让青色正好对应这个数值。修改后的代码如下：

a <- c(0.1, 0.05, 0.09, 0.001, 0.7, 0.002, 0.1, 0.015, 0.05, 0.013, 0.05, 0.0021, 0.05, 0.002, 0.5, 0.01, 0.2, 0.001)
b <- c(1, 1, 2, 2, 3, 3, 4, 4, 5, 5, 6, 6, 7, 7, 8, 8, 9, 9)
depth <- seq(1:18)
df <- data.frame(a, b, depth)
colors <- c("darkblue", "blue", "cyan", "yellow", "red")

# 计算a的范围中点
a_min <- min(df$a)
a_max <- max(df$a)
a_mid <- (a_min + a_max)/2

ggplot(df, aes(x = b, y = depth, fill = a)) +
  geom_tile(width = 1, height = 1) +
  scale_y_reverse(name = "Depth (m)") +
  scale_fill_gradientn(
    colors = colors,
    # 把5个颜色分别对应a的最小值、1/4位、中点、3/4位、最大值
    values = scales::rescale(c(a_min, (a_min+a_mid)/2, a_mid, (a_mid+a_max)/2, a_max)),
    limits = c(a_min, a_max),
    oob = scales::squish
  ) +
  labs(x = "Category", y = "Depth (m)", fill = "Value") +
  theme_minimal()

情况2：基于你设置的limits范围（0.01~0.3）映射 #

如果要保留原代码里的limits = c(0.01, 0.3)，那需要以这个范围的中点(0.01+0.3)/2=0.155为青色对应的位置，代码修改如下：

ggplot(df, aes(x = b, y = depth, fill = a)) +
  geom_tile(width = 1, height = 1) +
  scale_y_reverse(name = "Depth (m)") +
  scale_fill_gradientn(
    colors = colors,
    # 对应limits的最小值、1/4位、中点、3/4位、最大值
    values = scales::rescale(c(0.01, 0.08125, 0.155, 0.22875, 0.3)),
    limits = c(0.01, 0.3),
    oob = scales::squish
  ) +
  labs(x = "Category", y = "Depth (m)", fill = "Value") +
  theme_minimal()

关键说明 #

scale_fill_gradientn默认让颜色均匀分布在数值轴上，但通过values参数，我们可以把每个颜色绑定到指定的数值（用scales::rescale转成0-1的相对位置），这样就能精准控制青色落在a范围的中点上。

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