[R] side by side plots

[Sundar Dorai-Raj]

hpbenton at scripps.edu said the following on 1/7/2008 2:59 PM:
> Hello everyone,
> 
> I have an overlay plot it's nice but you can't see all the data. I would
> like to know if there is a way to get a plot that gives a side by side
> plot so that  each plot would be next to each other. The two plots have
> the same data are of different species. At the moment this is the code I'm
> using:
> 
> exp<-cbind(abs(round(rnorm(10),2)*10), seq(100, 200, by=10))
> ref<-cbind(abs(round(rnorm(10),2)*10), seq(100, 200, by=10))
> 
> plot(ref, ylab="Intensity", xlab="wavelength", type="h")
> points(exp, type="h", col="red")
> 
> This is working in a script and I would like to have a single pdf/png file
> for the user with this plot, rather than asking the user to manually
> compare them.
> 
> Any ideas on how I would do this?
> 
> Thanks
> 
> Paul
> 
> ______________________________________________
> R-help at r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.

Hi, Paul,

Simple enough in lattice:

library(lattice)
z <- rbind(cbind(as.data.frame(exp), type = "exp"),
            cbind(as.data.frame(ref), type = "ref"))
z$type <- factor(z$type, levels = c("ref", "exp"))
xyplot(V2 ~ V1 | type, data = z, type = "h")

HTH,

--sundar