Несколько «Top» textGrob Названия

Question

Ниже приведен простой пример моего вопроса (пожалуйста, простите повторяющиеся участки - не могут использовать свои реальные данные)

Пример:

#packages 
library(grid) 
library(gridExtra) 
library(ggplot2) 

#simple plot 
p <- ggplot(mtcars, aes(wt,mpg)) 


# setting-up grid of plots...2 columns by 4 rows 
sample <- grid.arrange(p + geom_point()+labs(title="Sample \nTitle One"), 
       p + geom_point()+labs(title="Sample \nTitle Two"), 
       p + geom_point(), 
       p + geom_point(), 
       p + geom_point(), 
       p + geom_point(), 
       p + geom_point(), 
       p + geom_point(), 
       ncol = 2) 

Выход:

Вопрос: Два верхних участка были сжаты. Я попытался использовать textGrob, как следует:

top = textGrob("Sample Title One",hjust = 1,gp = gpar(fontfamily = "CM Roman", size = 12)) 

Но я не вижу способ включить две отдельные названия. Мне еще предстоит попробовать использовать ковер, что может быть более разумным способом, но было любопытно, если бы был способ сделать это с помощью textGrob.

Спасибо за ваше время!

Answer 1

Как заявил user20650, вы можете сделать следующее:

grid.arrange(arrangeGrob(p,p,p,p,top=textGrob("Sample Title One"), 
ncol=1), arrangeGrob(p,p,p,p,top=textGrob("Sample Title Two"), ncol=1), 
ncol = 2) 

Чтобы получить следующие: