r - ggplot中的grid.layout

我正在使用以下代码在令人惊讶的包ggplot2中创建三组绘图:

w<-rnorm(100)
x<-rnorm(100)
y<-rnorm(100)
z<-rnorm(100)
g<-rep(factor(LETTERS[1:4]), 25)
d<-data.frame(g,w,x,y,z)

library(ggplot2)

pw<-ggplot(d, aes(w, y))
px<-ggplot(d, aes(x, y))
pz<-ggplot(d, aes(z, y))

pw+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm')
px+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm')
pz+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm')

我将制作一个PDF文件，将这三组绘图中的每一个都打印在同一页上。我的理解是split.screen(c(3,1))和par(mfrow=c(3,1))不适用于ggplot2图形，但是来自网格包的grid.layout()可以工作，所以我尝试了:

pdf(file="test.pdf")
pushViewport(viewport(layout=grid.layout(3,1)))
print(pw+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm'))
print(px+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm'))
print(pz+geom_point()+facet_grid(.~g, scales='fixed')+coord_equal()+stat_smooth(method='lm'))
dev.off()

但这最终是一个四页的PDF文件，第一页为空白，每组数字紧随每页，x轴标签在底部。有没有办法在同一页面上制作所有图集的PDF文件(并且不带空白页!)？

最佳答案

使用grid.arrange()包中的gridExtra可能会更好一些:

p1 <- pw + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
      stat_smooth(method='lm')
p2 <- px + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
      stat_smooth(method='lm')
p3 <- pz + geom_point() + facet_grid(.~g, scales='fixed') + coord_equal() +
      stat_smooth(method='lm')

grid.arrange(p1, p2, p3, ncol=1)