找到grid.arrange左上角的标题

Question

我有两个与gridExtra::grid.arrange并排排列的情节。我可以使用top参数在它们上面添加标题。问题是，我被要求在情节的左上角找到标题。

可重现的例子：

library(ggplot2)
library(gridExtra)

p1 <- qplot(1:20)
p2 <- qplot(30, 35)
grid.arrange(p1, p2, nrow = 1, top = "Title")

产生

但我需要的是：

我多次阅读?arrangeGrob文件（我认为这是我的答案），但还没有想出如何实现它。

Answer 1

grid.arrange(p1, p2, nrow = 1, top = grid::textGrob("Title",x=0,hjust=0))

Answer 2

patchwork是一个gridExtra替代方案，其行为更像ggplot而不是网格，包括其plot_annotate如何处理标题：

library(ggplot2)
library(patchwork)

qplot(1:20) + qplot(30, 35) + plot_annotation(title = 'Title')

如果您想进一步调整，theme参数会接受ggplot theme来电。