如何为分面ggplot的图例添加下标和上标标签？

核心问题分析 #

你遇到的报错是因为scale_colour_manual属于手动颜色映射，必须指定values参数绑定颜色与类别，仅设置labels会导致颜色映射缺失；直接在geom中修改aes无法覆盖图例标签规则，因为图例标签由scale层控制。

两种可行解决方案 #

方法1：使用scale_colour_discrete（推荐，无需手动指定颜色）

scale_colour_discrete会继承ggplot默认的离散颜色调色板，仅需替换标签即可，完全匹配你的需求：

# 定义带上下标的表达式标签
acid_labels <- expression(
  HCl,
  H[2]SO[4],
  Fe^"2+" * "+" * H[2]SO[4]
)

# 在原绘图代码后添加scale设置
myplot <- ggplot(gather(Maj.plot, key=Element, value="value", -"Step", -"Sample", -"Mill", -"pH", -"Acid"), 
                 aes(x=pH, y=as.numeric(value), colour=Acid, group=Sample, shape=Mill)) + 
  geom_point() + 
  geom_line() +
  facet_wrap(~ Element, scales = "free") + 
  scale_x_continuous(breaks = seq(0, 10, 2)) +
  # 新增的标签设置
  scale_colour_discrete(labels = acid_labels) +
  theme_bw()

如果想用bquote构造标签向量，只需开启parse=TRUE让ggplot解析表达式：

acid_labels <- c(
  "HCl",
  bquote("H"[2]*"SO"[4]),
  bquote("Fe"^"2+"+"H"[2]*"SO"[4])
)

myplot <- ggplot(...) +
  ... +
  scale_colour_discrete(labels = acid_labels, parse = TRUE) +
  theme_bw()

方法2：使用scale_colour_manual并保留默认颜色

若必须使用手动映射，先提取ggplot默认的离散颜色，再绑定到values参数：

# 获取默认的3个离散颜色（对应Acid的3个类别）
default_cols <- scales::hue_pal()(3)

# 定义标签
acid_labels <- expression(
  HCl,
  H[2]SO[4],
  Fe^"2+" * "+" * H[2]SO[4]
)

myplot <- ggplot(...) +
  ... +
  scale_colour_manual(
    values = default_cols,  # 绑定默认颜色
    labels = acid_labels    # 设置新标签
  ) +
  theme_bw()

关键注意事项 #

• 图例标签的修改必须通过scale_*系列函数，而非geom层的aes参数。
• scale_colour_discrete是针对离散变量的默认颜色映射，无需手动指定颜色，适合仅修改标签的场景。
• 表达式中的上下标语法：用[]表示下标，^表示上标，用*连接不同的表达式元素。

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