17

Is there a way to put the plot generated by plot function and the plot by ggplot function in R in one page side-by-side?

It is easy to put plots created by the same function into one page using par or multiplot function, but I can't figure out the above question.

Elaine
  • 395
  • 2
  • 10

2 Answers2

26

You can do this using the gridBase package and 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

This example is a modified version of this blog post by Dylan Beaudette

mnel
  • 113,303
  • 27
  • 265
  • 254
2

Yes. They are both grid-based graphics systems and return graphical objects. Take a look at the grid.arrange function in gridExtra package

IRTFM
  • 258,963
  • 21
  • 364
  • 487
  • Should that read *If* they are both grid-based graphics systems? – mnel Oct 23 '12 at 02:32
  • I may have been reading an earlier version that said 'lattice' and 'ggplot2' ... or this beer I'm drinking has special qualities. One of those up-votes for your answer is mine. – IRTFM Oct 23 '12 at 02:35
  • plot function is not grid-based. Probably that's what you are referring to, DWin? However, I've read there are ways to embed plot into the grid system. – JAponte Oct 29 '12 at 13:56