[R] Put two plots side by side

[Felipe Carrillo]

Two different ways:
library(ggplot2)
x=5
size=50
A=data.frame(X=sample(x, size, replace=T), Y=sample(x, size, replace=T),a=rep(1:2,each=25));A
# Facetting
qplot(X,Y,data=A) + geom_jitter(position=position_jitter(width=.03)) + facet_grid(.~a)
# Or with vp
p=qplot(X, Y, data=A) + geom_jitter(position=position_jitter(width=.03))
ggsave(p, file='main.png')
p1=qplot(X, Y, data=A) + geom_jitter(position=position_jitter(width=.3))
ggsave(p1, file='main2.png')
vport <- function(x, y)
viewport(layout.pos.row=x, layout.pos.col=y)
grid.newpage()
pushViewport(viewport(layout=grid.layout(1,2)))
print(p, vp=vport(1,1))
print(p1, vp=vport(1,2))
 
Felipe D. Carrillo
Supervisory Fishery Biologist
Department of the Interior
US Fish & Wildlife Service
California, USA



----- Original Message ----
> From: Erik Iverson <eriki at ccbr.umn.edu>
> To: Peng Yu <pengyu.ut at gmail.com>
> Cc: ggplot2 <ggplot2 at googlegroups.com>
> Sent: Sun, May 30, 2010 7:45:22 PM
> Subject: Re: Put two plots side by side
> 
> 
> 
> I want to put the above two plots side by side (essentially, 
> to mimic
> par(mfrow=c(1,2)) in the traditional graphic system). Is there 
> a
> convenient way to do so in ggplot2?
> 

Yes.

My 
> understanding is that you need to create use grid functions to do this. You can 
> create a viewport with a layout (using grid.layout) and then print the ggplot2 
> objects using the vp argument.  I don't know if there is a ggplot2 
> abstraction for this idea.

-- You received this message because you are 
> subscribed to the ggplot2 mailing list.
Please provide a reproducible 
> example: http://gist.github.com/270442

To post: email > ymailto="mailto:ggplot2 at googlegroups.com" 
> href="mailto:ggplot2 at googlegroups.com">ggplot2 at googlegroups.com
To 
> unsubscribe: email ggplot2+> href="mailto:unsubscribe at googlegroups.com">unsubscribe at googlegroups.com
More 
> options: http://groups.google.com/group/ggplot2