奇怪的grid.arrange情节上的空间
我正在尝试将脚注添加到grid.arrange图形中。 我在这个可重现的例子中提出了我的想法：）
library(ggplot2)
library(gridExtra)
library(grid)
library(gtable)
summary(anscombe)
p1 <- ggplot(anscombe) + geom_point(aes(x1, y1), color = "darkorange", size = 3) + theme_bw()
p2 <- ggplot(anscombe) + geom_point(aes(x2, y2), color = "darkorange", size = 3) + theme_bw()
p3 <- ggplot(anscombe) + geom_point(aes(x3, y3), color = "darkorange", size = 3) + theme_bw()
p4 <- ggplot(anscombe) + geom_point(aes(x4, y4), color = "darkorange", size = 3) + theme_bw()
title <- textGrob("Some title",
gp=gpar(fontsize=20,fontface=2))
source1<- textGrob("Source: https://rpubs.com/neilfws/91339",
hjust=0,x=0,y=1,
gp=gpar(fontsize=10,fontface=3))
grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, sub = source1), top = title)
该代码生成该图片：
图表下面有巨大的空间。 如何摆脱这一点？ 它为什么被创建？
尝试使用bottom而不是sub ：
grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, bottom = source1), top = title)
一个简单的方法是使用此代码：
grid.arrange(arrangeGrob(p1,p2,p3,p4, ncol=2, sub = source1), top = title, heights = c(50,-15))
并修改高度，直到你有适当的间距。 我只实现了这个参数，显示值：
链接地址: http://www.djcxy.com/p/91003.html