如何为ggplot2的geom_boxplot按value列添加渐变填充？

geom_boxplot默认仅支持基于离散分组的填充，要实现基于value列的渐变填充，需要手动构建箱线图的多边形元素，将渐变色彩映射到数值上，具体实现代码如下：

library(ggplot2)
library(dplyr)

# 提取每个Period的唯一统计值（去除重复的min/max记录）
df_unique <- df %>% 
  distinct(Period, .keep_all = TRUE) %>% 
  mutate(x_pos = as.numeric(factor(Period))) # 将Period转为数值型X坐标，方便绘制多边形

# 构建箱线图填充区域的多边形坐标
box_polygons <- df_unique %>% 
  rowwise() %>% 
  summarise(
    x = c(x_pos - 0.4, x_pos - 0.4, x_pos + 0.4, x_pos + 0.4, x_pos - 0.4), # 箱线左右边界
    y = c(min, value, value, max, min), # 填充区域的Y坐标路径：从min到value再到max
    value = value,
    Period = Period,
    .groups = "drop"
  )

# 绘制渐变填充箱线图
ggplot() +
  # 绘制渐变填充的多边形区域
  geom_polygon(data = box_polygons,
               aes(x = x, y = y, fill = value, group = Period),
               alpha = 0.8) +
  # 绘制箱线的中线（对应value值的横线）
  geom_segment(data = df_unique,
               aes(x = x_pos - 0.4, xend = x_pos + 0.4, y = value, yend = value),
               color = "black", size = 1) +
  # 绘制箱线的上下垂线（min到max）
  geom_segment(data = df_unique,
               aes(x = x_pos, xend = x_pos, y = min, yend = max),
               color = "black", size = 1) +
  # 绘制value对应的点（可选，增强可视化）
  geom_point(data = df_unique,
             aes(x = x_pos, y = value),
             color = "white", size = 2) +
  # 设置渐变填充配色
  scale_fill_gradient(low = "#2c7fb8", high = "#d95f02", name = "Value") +
  # 将X轴数值转回Period标签
  scale_x_continuous(breaks = df_unique$x_pos, labels = df_unique$Period) +
  labs(x = "Period", y = "Value") +
  theme_minimal()

代码说明 #

• 先对原始数据去重，提取每个Period对应的唯一统计值，将离散的Period转为数值型坐标，便于绘制多边形
• 通过构建多边形坐标，将箱线图的填充区域定义为从min到value再到max的闭合图形，从而将value的数值映射到渐变填充上
• 额外添加了箱线的边框和value点，提升图表的可读性，可根据需求调整样式
• 使用scale_fill_gradient自定义渐变的起始和结束颜色，也可以用scale_fill_gradient2实现双色渐变

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