多个 "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))

但是，我没有看到合并两个单独标题的方法。我还没有尝试使用 cowplot，这可能是一种更合理的方法，但我很好奇是否有办法使用 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)

获取以下内容：

多个 "Top" textGrob 标题

Multiple "Top" textGrob Titles

r

gridextra

r-grid