r - 如何在牛图多面板图标签中使用上标

Question

如何使用 cowplot 为多图面板中的图添加标签，其中标签有上标？
我可以使用 substitute 在轴标题上使用上标, bquote或 expression ， 像这样:

library(ggplot2)
library(cowplot)

p1 <- ggplot(mtcars, aes(disp, mpg)) +
  geom_point()
p2 <- ggplot(mtcars, aes(disp, hp)) +
  geom_point() +
  # this will create a nice superscript
  xlab(bquote(A^x))

p2

但我不知道如何将一组这些标签提供给 cowplot 来标记多个图:

# create a vector of labels for the grid of plots
labels_with_superscript <- 
  c(bquote(A^x), 
    bquote(B^x))

# create the grid of plots? 
plot_grid(p1, p2, 
          ncol = 1, 
          align = "v",
          labels =  labels_with_superscript
)

Error in (function (..., row.names = NULL, check.rows = FALSE, check.names = TRUE, : object 'A' not found让它工作的秘诀是什么，这样我就可以得到像 Ax 和 Bx 这样的东西作为绘图标签，而不是下面图中的 A 和 B？

plot_grid(p1, p2, 
          ncol = 1, 
          align = "v",
          labels =  "AUTO"
)

Answer 1

您可以使用 plotmath 表达式执行此操作。 @user63230 在评论中有正确的想法，但是，您不能通过 parse plot_grid() 的论据功能，但您可以使用 draw_plot_label()之后虽然您还需要指定标签位置:

library(ggplot2)
library(cowplot)

labels_with_superscript <-  c("A^x", "B^x")

plot_grid(p1, p2, 
          ncol = 1, 
          align = "v") +
  draw_plot_label(labels_with_superscript, x = c(0, 0), y = c(1, .5), parse = TRUE)