ggplot multiplot - 将标题保持在底部

Question

我的问题类似于以下帖子，我唯一需要的是将每个子图的标题放在每个图下面而不是顶部。

Place title of multiplot panel with ggplot2

baptiste的建议工作得很好但是，我只有两个数字，我希望它们并排。

p = qplot(1,1) 
lp = list(p,p)
ll = list("sub 1", "sub 2")
plotlist <- mapply(arrangeGrob, lp, sub=ll, SIMPLIFY=FALSE)
do.call(grid.arrange, plotlist)

谢谢

Answer 1

library(gridExtra)

p = qplot(1, 1)
grid.arrange(p, p, p, p, sub = textGrob("TITLE BELOW", gp=gpar(cex=2)))

ggplot2没有＆＃34; sub＆＃34;参数，因此我们使用arrangeGrob将每个绘图包装在gTree中，将绘图与下面的文本标签相结合。最后，在页面上排列复合凹凸。

lp = list(p, p, p, p)
ll = list("sub 1", "sub 2", "sub 3", "sub 4")

plotlist <- mapply(arrangeGrob, lp, sub=ll, SIMPLIFY=FALSE)
do.call(grid.arrange, plotlist)