R ggarrange 如何在情节标题中包含上层脚本？

Question

我正在尝试将绘图标签添加为由 ggarrange 合并的绘图中的标题。我的标签包含括号和子字符串。我发现使用 expression('My volume [m'^3*'/ha]') 我可以同时处理这两者，如果将其放置为 x 或 y 标签 (ylab(expression('My volume [m'^3*'/ha]')))。

然而，当使用相同的方法使用 ggarrange 组合不同的图，并希望将它们命名为 a) 和 b) 时，命名也会打印引号：

如何正确编写表达式，或使用 paste('..', '..') 引号不可见的方法？

创建多个图并使用 ggarrange:

绘制它们的虚拟示例

p1 <- ggplot(cars, aes(x=speed, y=dist)) + geom_point() + geom_smooth() 
p2 <- p1
  
ggarrange(p1, p2, 
          nrow = 2, ncol = 1,  
          common.legend = TRUE,
          legend="bottom",
          labels=list(paste("a) ", 'My rate [%]'),
                     paste('b)', expression('My volume [m'^3*'/ha]'))), # How to change this???
          align = c("hv"),
          font.label = list(size = 10, 
                            face = "plain", 
                            color ="black"))

错误的标记输出 b:

Answer 1

终于，我根据this post找到了答案。这在替换标题时有效，但我敢打赌它也适用于 ggarrange。重要的是它适用于 paranteses 和上标。

p1 +  ggtitle(expression(paste("a) ", "volume [m"^3, "/ha", "]")))

R ggarrange 如何在情节标题中包含上层脚本？

R ggarrange how to include upper scripts in the plot titles?

label

expression

r