如何单独调整geom_richtext背景透明度？scales::alpha报错解决

你之前的报错根源是：在aes(fill = alpha(y1, 0.2))中，y1是分组标签（不是具体颜色值），而scales::alpha()需要传入颜色值才能生成带透明度的颜色，因此触发"Unknown colour name: First"错误。以下是两种正确实现仅调整背景透明度的方案：

方案一：在颜色映射中直接添加透明度 #

直接在scale_fill_manual的values参数里，给每个颜色值添加透明度，无需修改填充映射逻辑：

library(ggplot2)
library(ggtext)

ggplot(data.frame(x = c(-2, 2)), aes(x = x)) +
  stat_function(fun = dnorm) +
  geom_richtext(
    data = data.frame(x = c(-1.4, -.5), y = rep(dnorm(0)), y1 = c('First', 'Second')),
    aes(x = x, y = y, label = y1, fill = y1),
    label.colour = NA,  # 可选：移除标签边框
    text.colour = "black"  # 确保文本颜色不受背景透明度影响
  ) +
  scale_fill_manual(
    breaks = c('First', 'Second'),
    values = c(scales::alpha('#c1121f', 0.2), scales::alpha('#023e8a', 0.2))
  )

方案二：使用after_scale后置调整透明度 #

如果不想修改scale_fill_manual中的原始颜色值，可以用after_scale在填充色映射完成后添加透明度：

library(ggplot2)
library(ggtext)

ggplot(data.frame(x = c(-2, 2)), aes(x = x)) +
  stat_function(fun = dnorm) +
  geom_richtext(
    data = data.frame(x = c(-1.4, -.5), y = rep(dnorm(0)), y1 = c('First', 'Second')),
    aes(x = x, y = y, label = y1, fill = after_scale(alpha(fill, 0.2))),
    label.colour = NA,
    text.colour = "black"
  ) +
  scale_fill_manual(
    breaks = c('First', 'Second'),
    values = c('#c1121f', '#023e8a')
  )

关键注意点 #

• 不要使用全局alpha参数，它会同时影响文本和背景的透明度
• text.colour显式设置文本颜色，避免背景透明后文本可读性下降
• label.colour = NA可移除标签边框，让整体样式更清爽

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