r - 在 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文件（我认为这是我的答案），但还没有弄清楚如何实现它。

score 12 · Accepted Answer

使用顶部参数：

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

score 3 · Accepted Answer

patchwork是一种 gridExtra 替代方案，它的行为更像 ggplot 而不是 grid，包括它如何plot_annotate处理标题：

library(ggplot2)
library(patchwork)

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

如果你想进一步调整它，它的theme参数接受一个 ggplottheme调用。

2 回答 2