ggplot2中使用paste()生成变量后实现图例文本下标显示

要让图例中的sub1/sub2以下标形式显示，核心是让ggplot解析图例标签里的数学表达式。你当前的代码只是把X[sub1]作为普通字符串拼接，ggplot不会自动解析成下标，需要做两处修改：

1. 生成符合plotmath语法的标签字符串 #

调整mutate里的name生成逻辑，保持X[sub1]这种plotmath支持的下标格式，用paste0拼接成完整的表达式字符串：

2. 让图例解析表达式字符串 #

在ggplot中添加scale_color_discrete(label = parse_text)，让图例标签解析字符串为数学表达式。

修改后的完整代码 #

library(tidyverse)

data <- tibble(
  text = rep(c("text1", "text2"), each = 2),
  x = c(1,2,0.5,0.75),
  y = c(2,4,1.8,3.6),
  group = rep(c("one", "two"), each = 2)
) %>%
  mutate(
    name = case_when(
      group == "one" ~ paste0(
        text, ": X[sub1] = ", sprintf("%.1f", round(x,1)), "; Y[sub1] = ", sprintf("%.1f", round(y,1))
      ),
      group == "two" ~ paste0(
        text, ": X[sub2] = ", sprintf("%.1f", round(x,1)), "; Y[sub2] = ", sprintf("%.1f", round(y,1))
      ),
      TRUE ~ NA_character_
    )
  ) 

plot_ <- ggplot(
  data = data, 
  aes(x=x, y=y, shape = group, color = name)
) +
  geom_point(size = 3) +
  scale_color_discrete(label = parse_text) # 关键：解析表达式

plot_

原理说明 #

• plotmath是R中用于绘制数学符号的语法，X[sub1]会被解析为X的下标sub1
• parse_text()函数来自ggplot2，能把字符串转换成可渲染的表达式对象，让图例正确显示下标

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