grid.layout在ggplot

Question

我用下面的代碼驚人的包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文件（並且沒有空白頁面導致！）？

Answer 1

你可能要使用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) 

Answer 2

您還可以使用的multiplot（）函數，它可定製適合您的需求：http://www.cookbook-r.com/Graphs/Multiple_graphs_on_one_page_(ggplot2)/

Answer 3

如果您使用markdown，請在每個代碼塊中爲每個繪圖使用fig.height：

```{r pw, fig.height = 2.66, echo = F} 
pw 
``` 
```{r px, fig.height = 2.66, echo = F} 
px 
``` 
```{r pz, fig.height = 2.66, echo = F} 
pz 
```