繪製在r多個矢量圖形在一個頁面上有grImport

Question

我試圖使用grImport包繪製一個頁面上幾個矢量圖形：

grid.newpage() 
grid.picture(pic1) 
grid.picture(pic2) 

這只是借鑑了前輩的圖形。我正在尋找類似於par(mfrow=c(2,1))的地塊，但是mfrow似乎不適用於grid.picture。

我知道你可以設置grid.picturexywidth和height值，但有類似par一個更簡單的方法？

感謝

Answer 1

require(grImport) 
hourglass <- new("Picture", 
       paths= list(new("PictureFill", 
           x=c(0, 1, 0, 1), 
           y=c(0, 0, 1, 1))), 
       summary= new("PictureSummary", 
           numPaths=1, 
           xscale=c(0, 1), 
           yscale=c(0, 1))) 

g1 <- pictureGrob(hourglass, use.gc=FALSE, gp=gpar(fill="red")) 
g2 <- pictureGrob(hourglass, use.gc=FALSE, gp=gpar(fill="blue")) 

require(gridExtra) 
grid.arrange(g1,g2, ncol=2)