Сюжет gList бок о бок

Question

У меня есть 2 объекта gList (сетка), которые хорошо отображаются, когда я делаю

grid.draw(plot1)
grid.draw(plot2)

Но я хочу, чтобы они были в формате PDF. Что-то вроде

pdf(test.pdf)
par(mfrow=c(1,2))
plot(1:10)
plot(10:1)
dev.off

Но это не работает.

Answer 1

Устроить grid объекты, вы можете использовать grid.layout в окне просмотра. вот пример.

pushViewport(plotViewport(layout=grid.layout(1, 2),gp=gpar(cex=2)))
pushViewport(plotViewport(layout.pos.col=1))
  grid.draw(getPlot())
popViewport()
pushViewport(plotViewport(layout.pos.col=2, clip="on"))
  grid.draw(getPlot(col.fill='black',col.text='red',text='Rouge',x=0))
popViewport()
popViewport()

Вот getPlot это функция, которая возвращает gList;

getPlot <- function(col.fill="red",col.text='black',text="Noir",x=1){
  rect1 <- rectGrob(gp=gpar(fill=col.fill))
  text1 <- textGrob(text,gp=gpar(col=col.text))
  text2 <- textGrob("&", x=x,gp=gpar(col=col.text))
  gList(rect1,text1,text2)
}