Совместите заголовок marrangGrob с левым пределом сюжета.

Question

Мой вопрос касается второго решения, данного для этого вопроса: найдите заголовок в левом верхнем углу grid.arrange .

Я хотел бы поместить заголовок в верхний левый угол marrangeGrob, но также выровнять его по вертикали с левым пределом графика.

Есть ли способ сделать это автоматически: без поиска методом проб и ошибок правильное значение для аргумента x textGrob?

Answer 1

Возможно добавить заголовок только для левого сюжета:

library(ggplot2)
library(gridExtra)

p1 <- qplot(1:20) + ggtitle("Title")
p2 <- qplot(30, 35) + ggtitle("")

grid.arrange(p1, p2, nrow = 1)