如何用数据框字符串列实现R绘图轴标签的上标效果

我有一个包含变量名和单位的数据框：

df1 <- data.frame(Variable = paste('Variable', 1:4), Unit = c('mm', 'cm ^ 2', 'cm ^ 2 * hr ^ -1', 'cm ^ 3 * cm ^ -2 * hr ^ -1'))
# > df1
#     Variable                       Unit
# 1 Variable 1                         mm
# 2 Variable 2                     cm ^ 2
# 3 Variable 3           cm ^ 2 * hr ^ -1
# 4 Variable 4 cm ^ 3 * cm ^ -2 * hr ^ -1

我希望用这些内容生成绘图的轴标签，尝试了如下代码：

par(mfrow = c(2, 2))
for (u in 1:4) {
  plot(0, xlab = paste0(df1[u, ]$Variable, ', ', bquote(.(df1[u, ]$Unit))))
}

但生成的图表中轴标签的上标无法正常显示。我曾使用过expression()、paste()和bquote()函数，但从未处理过这种结合数据框单位列、上标和算术运算符的场景，不确定是需要重新格式化单位列，还是修改绘图函数中轴标签的生成方式，请问该如何实现想要的上标效果？

核心问题是直接用bquote()插入字符串不会解析其中的表达式语法（比如^表示上标），需要把变量名和单位组合成可被R解析的表达式文本，再转换为绘图能识别的表达式对象。

方法1：parse() + 字符串拼接 #

将变量名和单位拼接成符合R表达式语法的文本，再解析为表达式对象：

par(mfrow = c(2, 2))
for (u in 1:4) {
  # 拼接成表达式字符串，用~控制排版，括号保留逗号格式
  lab_text <- paste0(df1$Variable[u], "~'(,'~", df1$Unit[u])
  # 解析为表达式
  xlab_expr <- parse(text = lab_text)
  plot(0, xlab = xlab_expr)
}

方法2：bquote()结合解析后的单位 #

先单独解析单位部分，再嵌入到变量名的标签中，保留bquote()的灵活性：

par(mfrow = c(2, 2))
for (u in 1:4) {
  # 把单位字符串解析为表达式元素
  unit_expr <- parse(text = df1$Unit[u])[[1]]
  # 组合变量名和单位表达式
  xlab_expr <- bquote(.(df1$Variable[u])~","~.(unit_expr))
  plot(0, xlab = xlab_expr)
}

额外说明 #

• R基础绘图的轴标签需要是表达式对象，而非普通字符串，parse(text=...)能将包含^等语法的文本转换成正确的格式。
• 如果需要显示可见的乘号，可将单位中的*替换为cdot（点乘符号），比如：gsub("\\*", "\\cdot", df1$Unit[u])后再解析。

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