如何在R语言ggplot2中传递包含上标的自定义构建标题

方案1：单次调用直接生成 #

直接用bquote配合parse处理可变部分的字符串，固定部分仅需编写一次：

library(ggplot2)
n.form = 2
# 定义可变部分的字符向量
x_lab_vars <- c("Monthly", "m^2")
# 生成轴标题：固定部分仅写一次，可变部分自动解析表达式
x_lab <- bquote("x-axes," ~ R^2*s ~ 'for' ~ .(parse(text = x_lab_vars[n.form])))
# 绘图测试
ggplot() + 
  geom_point(aes(x = 1, y = 1)) + 
  labs(x = x_lab)

方案2：批量生成所有标题备用 #

如果需要预先生成所有可选的轴标题，用lapply批量处理即可：

x_lab_vars <- c("Monthly", "m^2")
# 批量生成所有标题，固定部分仅定义一次
x.labs <- lapply(x_lab_vars, function(v) {
  bquote("x-axes," ~ R^2*s ~ 'for' ~ .(parse(text = v)))
})
# 按索引调用对应标题
ggplot() + 
  geom_point(aes(x = 1, y = 1)) + 
  labs(x = x.labs[[n.form]])

原方案出错原因 #

你之前直接把字符串传入bquote的.()占位符时，bquote会将其识别为普通文本而非表达式，因此带^的上标语法不会被解析。用parse(text = )将可变部分的字符串转换为可执行的表达式对象，即可正确渲染特殊格式。

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