R中一个PDF页面上的几个hexbin图

Question

我正在尝试创建一个包含多个hexbin图的PDF，我希望每页都有特定数量的图。

这个有效：

PDFPath = "C:\\temp\\some.pdf"
pdf(file=PDFPath)  
par(mfrow = c(2,2))
for (i in seq(5,10))   
{    
  VAR1 = rnorm(i)  
  VAR2 = rnorm(i)  
  plot(VAR1, VAR2)
} 
dev.off() 

这个不起作用。它每页只生成一个图：

library(hexbin)
PDFPath = "C:\\temp\\some.pdf"
pdf(file = PDFPath)  
par(mfrow = c(2,2))
for (i in seq(5,10))   
{     
  VAR1 = rnorm(i)  
  VAR2 = rnorm(i)  
  plot(hexbinplot(VAR1 ~ VAR2))
} 
dev.off() 

关于出了什么问题的任何想法？

编辑：

我刚才注意到，原因是mfrow仅指基础图形而不是网格图形。有没有办法为hexbin获得类似的结果？

Answer 1

使用grid.arrange：

library(hexbin)
plotList <- lapply(1:4, function(i) {
  VAR1 = rnorm(i*100)  
  VAR2 = rnorm(i*100)  
  hexbinplot(VAR1 ~ VAR2)
})

library(gridExtra)    
do.call(grid.arrange, c(plotList, ncol=2))