2014-01-14 18 views
3

我正在嘗試創建一個包含hexbin地塊的PDF,其中我想每頁有特定數量的地塊。在R的一個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僅指基礎圖形,而不是電網GRAPHIS。有沒有辦法達到hexbin的類似結果?

+0

從來沒有聽說過hexbinplot的。也許你想提一下'hexbin'包:'library(hexbin)' –

+0

@PeterLustig你說得對,我忘了提這個。 – AnjaM

回答

4

使用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)) 

enter image description here