Рисование нескольких векторных изображений в R на одной странице с помощью grImport

Question

Я пытаюсь использовать grImport Пакет для рисования нескольких векторных изображений на одной странице:

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

Это просто рисует более старый рисунок. Я ищу что-то похожее на par(mfrow=c(2,1)) с участками, но mfrow похоже не работает с grid.picture,

Я знаю, что вы можете установить xywidth а также height значения в grid.picture, но есть ли более простой способ, похожий на 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)