使用grImport在一页上绘制R中的多个矢量图形

我正在尝试使用

grImport

包在一页上绘制多个矢量图形：

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

这只是绘制了旧的图形。我正在寻找与绘图类似的

par（mfrow=c（2,1））

，但是

mfrow

似乎不适用于

grid.picture

我知道您可以在

网格中设置
x
y
宽度
和
高度
值。图片

，但是有没有类似于

par

的更简单的方法

谢谢

require（grImport）
沙漏
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)