如何使用R语言glue()为text()生成带下标/上标的文本标签？

你的需求可以实现，但当前写法存在问题：glue()默认输出字符串，直接嵌入expression()会被转为纯文本字符串（而非可解析的数学表达式），导致显示异常。以下是两种可行的解决方法：

方案1：生成表达式字符串后解析 #

用glue()拼接包含数学表达式语法的字符串，再通过parse(text=...)让text()解析表达式：

x <- rnorm(10)
plot(x)
# 用glue拼接带表达式语法的文本
label_content <- glue("Some text R^2 and some text
                      next line R[0]")
# 解析字符串为表达式后传入text
text(x = max(x)-0.5, pos = 4,
     labels = parse(text = label_content))

方案2：结合bquote混合文本与表达式 #

如果需要更精准控制文本和表达式的混合排版，可使用bquote()配合atop()实现换行和表达式渲染：

x <- rnorm(10)
plot(x)
text(x = max(x)-0.5, pos = 4,
     labels = bquote(atop("Some text" ~ R^2 ~ "and some text",
                          "next line" ~ R[0])))

两种方案都能正确渲染R²上标和R₀下标，同时保留普通文本内容。

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