在ggplot中使用箱线图与不同饱和度刻度时，如何显示饱和度图例？

问题背景 #

参考了《Changing colour schemes between facets》的模板，但未能实现需求：希望var2的图例能像柱状图那样显示对应的灰度（透明度）刻度，当前箱线图+散点图的代码未达成该效果。

数据集 #

df <- data.frame(var1 = factor(rep(c('A','B','C'), 12)),
                 var2 = factor(rep(c("high", "middle", "low"), each = 12)), 
                 var3 = factor(rep(c('X','X','X','Z','Z','Z'), 6)), 
                 value = sample(0:100, 36, rep = TRUE))

现有代码 #

柱状图代码（图例符合预期）

ggplot(df) +
  geom_bar(aes(x = var3, y = value, 
               fill = var1, alpha = var2 ), 
           stat = "identity") + 
  facet_wrap(~var1) +
  scale_alpha_discrete(range = c(0.4,1)) +
  scale_fill_brewer(palette = "Set1", name = "var1")

箱线图代码（图例不符合需求）

ggplot(df, aes(x = factor(var3), y = value, 
               fill = factor(var1), alpha = var2 ), 
       stat = "identity") +
  geom_boxplot(outlier.size=0) + 
  geom_point(size=0.5,position=position_jitterdodge(0.2))  +
  facet_wrap(~var1) +
  scale_alpha_discrete(range = c(1,0.1)) +
  scale_fill_brewer(palette = "Set1", name = "number 3")

解决方案 #

问题核心在于箱线图的图例默认样式受geom_boxplot和geom_point共同影响，无法直接显示灰度刻度。通过自定义图例的覆盖样式，可让var2的图例和柱状图保持一致：

ggplot(df, aes(x = factor(var3), y = value, 
               fill = factor(var1), alpha = var2)) +
  geom_boxplot(outlier.size = 0) + 
  geom_point(size = 0.5, position = position_jitterdodge(0.2)) +
  facet_wrap(~var1) +
  scale_alpha_discrete(
    range = c(1, 0.1),
    guide = guide_legend(override.aes = list(fill = "gray50"))
  ) +
  scale_fill_brewer(palette = "Set1", name = "number 3")

关键说明 #

• 移除了原代码中ggplot()里多余的stat = "identity"参数（该参数仅对geom_bar等需要统计变换的图层有效）；
• guide_legend(override.aes = list(fill = "gray50"))强制图例的填充色为灰色，这样不同透明度的var2类别就会以灰度深浅的形式呈现，和柱状图的图例样式匹配；
• scale_alpha_discrete的range参数保持你原有的设置（1到0.1），确保透明度的梯度符合需求。

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