如何在R的geom_violin中根据Y轴数值设置填充颜色？

你当前代码颜色映射不生效的核心原因是：fill 美学属性直接绑定了离散的X轴分类变量orden，搭配的scale_fill_brewer是离散调色板函数，只会按X轴类别顺序分配RdBu色板的颜色，完全不会关联Y轴size的数值大小。
要实现按分组Y值大小映射颜色、保留RdBu色板的需求，只需要把填充映射的变量替换为每个X分组对应的Y值汇总统计量（推荐用中位数，适配基因组大小这类偏态分布数据，抗极值干扰），再改用连续型的RdBu调色板即可。

方法1：无需预处理数据的最简写法 #

直接在geom_violin的映射里用after_stat(median(y))，让ggplot自动按每个X组计算Y值的中位数作为填充依据，不需要额外加工数据：

library(ggplot2)

ggplot(df4, aes(x = orden, y = size)) +
  geom_violin(aes(fill = after_stat(median(y))), trim = FALSE) +
  # 连续型RdBu调色板，direction控制颜色方向：高值深蓝、低值浅红
  scale_fill_distiller(palette = "RdBu", direction = -1) +
  # 箱线图填充白色，避免和小提琴填充色重叠影响辨识度
  geom_boxplot(width = 0.07, fill = "white") +   
  scale_x_discrete(labels = c("Insectos palo","Hormigas", "Escarabajos",
                                "Áfidos", "Moscas", "Mariposas", "Polillas", 
                                "Saltamontes")) +
  labs(x = "", y = "Tamaño del genoma (Mb)", fill = "Tamaño mediano (Mb)")+
  # 需要log2Y轴时取消下面注释即可
  # scale_y_continuous(trans = "log2", breaks = c(20, 40, 80))+
  theme_classic()

方法2：预处理数据的可控写法 #

如果需要自定义分组统计规则（比如用均值、分位数作为颜色映射依据），可以先用dplyr提前计算每个分组的统计值再绘图：

library(ggplot2)
library(dplyr)

# 提前计算每个orden分组的size中位数
df4_processed <- df4 %>%
  group_by(orden) %>%
  mutate(size_agg = median(size, na.rm = TRUE)) %>%
  ungroup()

ggplot(df4_processed, aes(x = orden, y = size)) +
  geom_violin(aes(fill = size_agg), trim = FALSE) +
  scale_fill_distiller(palette = "RdBu", direction = -1) +
  geom_boxplot(width = 0.07, fill = "white") +   
  scale_x_discrete(labels = c("Insectos palo","Hormigas", "Escarabajos",
                                "Áfidos", "Moscas", "Mariposas", "Polillas", 
                                "Saltamontes")) +
  labs(x = "", y = "Tamaño del genoma (Mb)", fill = "Tamaño mediano (Mb)")+
  theme_classic()

关键参数说明 #

• scale_fill_distiller是ggplot2中适配连续型映射的ColorBrewer调色板函数，原来用的scale_fill_brewer仅支持离散变量映射，这是原代码无法关联Y值的核心问题。
• 若运行后发现颜色方向颠倒（高值为红、低值为蓝），将direction参数从-1改为1即可。
• 如果需要调整颜色深浅梯度，可以在scale_fill_distiller中传入limits = c(最小值, 最大值)手动指定颜色映射的数值范围，也可以给geom_violin加alpha参数设置透明度优化视觉效果。
• 如果需要箱线图也跟随分组颜色映射，删掉geom_boxplot里的fill = "white"参数即可。

内容的提问来源于stack exchange，提问作者Pedro Alexander Velasquez Vasc