diagtwigs generados por ‘plot’ y ‘ggplot’ uno al lado del otro

¿Hay alguna forma de poner el diagtwig generado por la función de plot y el trazado por la función ggplot en R en una página lado a lado?

Es fácil poner ttwigs creadas por la misma función en una página usando la función par o multiplot , pero no puedo entender la pregunta anterior.

Puede hacerlo utilizando el paquete gridBase y viewPorts.

 library(grid) library(gridBase) library(ggplot2) # start new page plot.new() # setup layout gl <- grid.layout(nrow=1, ncol=2) # grid.show.layout(gl) # setup viewports vp.1 <- viewport(layout.pos.col=1, layout.pos.row=1) vp.2 <- viewport(layout.pos.col=2, layout.pos.row=1) # init layout pushViewport(viewport(layout=gl)) # access the first position pushViewport(vp.1) # start new base graphics in first viewport par(new=TRUE, fig=gridFIG()) plot(x = 1:10, y = 10:1) # done with the first viewport popViewport() # move to the next viewport pushViewport(vp.2) ggplotted <- qplot(x=1:10,y=10:1, 'point') # print our ggplot graphics here print(ggplotted, newpage = FALSE) # done with this viewport popViewport(1) 

enter image description here

Este ejemplo es una versión modificada de esta publicación de blog de Dylan Beaudette

Sí. Son sistemas gráficos basados ​​en cuadrículas y objetos gráficos de retorno. Eche un vistazo a la función grid.arrange en el paquete gridExtra