如何在ggplot图例中使用下标（A₀）且不使用scale_color_manual(label=...)

方法1：利用ggplot表达式解析功能 #

通过构造可解析的字符串标签，配合scale_color_discrete(parse = TRUE)自动解析下标格式：

library(ggplot2)
library(dplyr)

a = data.frame(x = c(1:10), y = c(1:10), z = rep(c(1:5),2))
a$label = paste0('z', a$z, ': A[0]')

a %>%
  ggplot(aes(x = x, y = y, color = label, group = label)) + 
  geom_point(size = 7, stroke = 1.5) +
  scale_color_discrete(parse = TRUE)

parse = TRUE会将标签字符串中的A[0]解析为数学表达式，自动渲染成下标格式A₀。

方法2：直接使用表达式作为标签 #

将label列设置为表达式对象，ggplot会直接识别并渲染下标：

library(ggplot2)
library(dplyr)

a = data.frame(x = c(1:10), y = c(1:10), z = rep(c(1:5),2))
# 用bquote生成带变量的表达式
a$label = lapply(a$z, function(i) bquote(z.(i): A[0]))
# 转换为因子以保持分组顺序
a$label = factor(a$label, levels = unique(a$label))

a %>%
  ggplot(aes(x = x, y = y, color = label, group = label)) + 
  geom_point(size = 7, stroke = 1.5)

这种方法不需要额外修改scale，表达式会直接被ggplot渲染为带下标格式的图例文本。

方法3：使用ggtext支持Markdown格式 #

借助ggtext包的Markdown解析能力，用<sub>标签定义下标，再通过主题设置让图例文本解析Markdown：

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

a = data.frame(x = c(1:10), y = c(1:10), z = rep(c(1:5),2))
a$label = paste0('z', a$z, ': A<sub>0</sub>')

a %>%
  ggplot(aes(x = x, y = y, color = label, group = label)) + 
  geom_point(size = 7, stroke = 1.5) +
  theme(legend.text = element_markdown())

element_markdown()会让图例文本识别Markdown的下标语法，将<sub>0</sub>渲染为下标0。

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