如何在ggplot2中根据条形Y轴高度为每个条形设置不同alpha透明度

核心修改逻辑 #

• 在条形图的stat_summary图层中将alpha参数映射为统计计算得到的Y轴均值（..y..为ggplot2内部统计计算结果的占位符）
• 用scale_alpha_continuous设置透明度反向映射规则：Y值越高，alpha取值越低，同时可自定义透明度范围、隐藏不需要的图例

完整可运行代码 #

# 数据准备
DataMerged235$treatment <- factor(DataMerged235$treatment, levels = c("odour & flavour", "only odour", "only flavour"))

# 绘图
fig235 <- ggplot(DataMerged235, aes(x = treatment, y = correct_final)) +
  # 条形图层新增alpha映射，fill固定为深蓝色
  stat_summary(fun = "mean", geom = "bar", fill = "dodgerblue4", aes(alpha = ..y..)) +
  stat_summary(fun.data = "mean_cl_boot", geom = "errorbar", width = 0.2) +
  ylab("Proportion of correct choices") + 
  xlab("") + 
  theme_bw(16) +
  geom_abline(intercept = 0.5, slope = 0, color = "black", linetype = 2) +
  coord_cartesian(ylim = c(0.4, 1.15)) +
  # 透明度反向映射：Y值越高alpha越低，设置透明度范围0.3-0.9，隐藏图例
  scale_alpha_continuous(trans = "reverse", range = c(0.3, 0.9), guide = "none")

print(fig235)

若使用旧版本ggplot2，可将代码中的fun = "mean"替换为你原有代码的fun.y = "mean"，兼容运行。

参数说明 #

• trans = "reverse"：实现Y值与alpha的负相关，符合「Y越高颜色越深」的需求
• range = c(0.3, 0.9)：控制透明度的上下限，避免最高Y值对应完全透明、最低Y值对应完全不透明，可根据视觉效果自行调整数值
• guide = "none"：隐藏alpha对应的图例，若需要展示透明度规则可删除该参数

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