ggplot图例自定义排列及alpha导致白色补丁问题求助

问题背景 #

需求是自定义ggplot柱状图的图例排列：

• 前两个类别a、b置于图例第一行，且文字设为粗体
• 剩余类别c、d、e从第二行开始按3列网格排列

按照建议添加spacer占位符实现排列后，给geom_col设置alpha=0.6时，图例中出现白色补丁；移除该alpha参数后补丁消失，需要解决此问题。

原始修改代码（存在白色补丁问题）：

library(ggplot2)
library(scales)
library(dplyr)

DF = data.frame(val = c(10,20,30,40,50,60,70,80,90,100), param = rep(letters[1:5],2), x = rep(c('X', 'Y'), 5))

DF$param <- factor(DF$param, c("a", "b", "spacer", "c", "d", "e"))

pal_fill <- scales::hue_pal()(5)
names(pal_fill) <- letters[1:5]

pal_fill <- c(pal_fill, spacer = "transparent")

ggplot(data = DF) +
  geom_col(aes(y = val, fill = param, x = x), alpha = 0.6,
    position = position_dodge2(preserve = "single")
  ) +
  scale_fill_manual(
    values = pal_fill,
    drop = FALSE,
    labels = ~ dplyr::case_match(
      .x, "spacer" ~ "", c("a", "b") ~ paste0("**", .x, "**"),
      .default = .x)
  ) +
  guides(fill = guide_legend(
    nrow = 2, byrow = TRUE
  )) +
  theme(
    legend.position=c(.9,.75),
    legend.background = element_rect(fill = alpha('#e5e5e5', 0.60)),
    #legend.text = ggtext::element_markdown(),
    legend.key = element_rect(fill = "transparent")
  )

问题原因 #

geom_col的全局alpha参数会作用于所有几何对象，包括图例中的符号。对于spacer类别，我们设置其填充色为transparent，但叠加alpha=0.6后，会透出图例绘制底层的白色（即使legend.key设为透明，alpha的计算逻辑仍会让透明色块显示出淡白色补丁）。

解决方案 #

提供两种可行的修复方式：

方式一：通过美学映射单独控制alpha #

将alpha设为美学映射，仅给实际数据类别设置透明度，spacer的alpha设为0（完全透明）：

library(ggplot2)
library(scales)
library(dplyr)
library(ggtext) # 用于渲染Markdown粗体

DF = data.frame(val = c(10,20,30,40,50,60,70,80,90,100), param = rep(letters[1:5],2), x = rep(c('X', 'Y'), 5))

DF$param <- factor(DF$param, c("a", "b", "spacer", "c", "d", "e"))

pal_fill <- scales::hue_pal()(5)
names(pal_fill) <- letters[1:5]
pal_fill <- c(pal_fill, spacer = "transparent")

# 定义alpha映射：spacer设为0，其他类别设为0.6
pal_alpha <- setNames(c(rep(0.6,5), 0), levels(DF$param))

ggplot(data = DF) +
  geom_col(aes(y = val, fill = param, x = x, alpha = param),
           position = position_dodge2(preserve = "single")
  ) +
  scale_fill_manual(
    values = pal_fill,
    drop = FALSE,
    labels = ~ case_match(
      .x, "spacer" ~ "", c("a", "b") ~ paste0("**", .x, "**"),
      .default = .x)
  ) +
  scale_alpha_manual(
    values = pal_alpha,
    drop = FALSE,
    guide = "none" # 隐藏alpha相关图例
  ) +
  guides(fill = guide_legend(
    nrow = 2, byrow = TRUE
  )) +
  theme(
    legend.position=c(.9,.75),
    legend.background = element_rect(fill = alpha('#e5e5e5', 0.60)),
    legend.text = ggtext::element_markdown(), # 启用粗体渲染
    legend.key = element_rect(fill = "transparent")
  )

方式二：通过override.aes覆盖图例alpha值 #

保留geom_col的全局alpha，手动给图例中的spacer设置alpha=0：

library(ggplot2)
library(scales)
library(dplyr)
library(ggtext)

DF = data.frame(val = c(10,20,30,40,50,60,70,80,90,100), param = rep(letters[1:5],2), x = rep(c('X', 'Y'), 5))

DF$param <- factor(DF$param, c("a", "b", "spacer", "c", "d", "e"))

pal_fill <- scales::hue_pal()(5)
names(pal_fill) <- letters[1:5]
pal_fill <- c(pal_fill, spacer = "transparent")

ggplot(data = DF) +
  geom_col(aes(y = val, fill = param, x = x), alpha = 0.6,
           position = position_dodge2(preserve = "single")
  ) +
  scale_fill_manual(
    values = pal_fill,
    drop = FALSE,
    labels = ~ case_match(
      .x, "spacer" ~ "", c("a", "b") ~ paste0("**", .x, "**"),
      .default = .x)
  ) +
  guides(fill = guide_legend(
    nrow = 2, byrow = TRUE,
    # 手动覆盖每个图例元素的alpha，spacer设为0
    override.aes = list(alpha = c(0.6, 0.6, 0, 0.6, 0.6, 0.6))
  )) +
  theme(
    legend.position=c(.9,.75),
    legend.background = element_rect(fill = alpha('#e5e5e5', 0.60)),
    legend.text = ggtext::element_markdown(),
    legend.key = element_rect(fill = "transparent")
  )

补充说明 #

• 要让a、b的粗体生效，必须启用ggtext::element_markdown()，ggplot默认的legend.text不支持Markdown格式。
• 两种方式的核心都是让spacer对应的图例符号完全透明，避免alpha叠加导致的白色补丁。

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