Putting 6 graphs on one page

From: Dimitri Liakhovitski <dimitri.liakhovitski at gmail.com>
To: r-help at r-project.org
Sent: Fri, May 14, 2010 10:19:38 AM
Subject: [R] Putting 6 graphs on one page

Apologies, if it's a very simple question, but I am really not very

trellis.

6

each.

6

lot!

a","It's b","It's c","It's d","It's e","It's f")

{        

IV<-conditions[i]

","IV ",IV,".emf",sep="")

win.metafile(file=filename2)

out<-as.data.frame(tapply(data$DependentVariable.j,data[[IV]],mean))

out$IV<-as.factor(as.numeric(row.names(out)))

names(out)[1]<-"j"

out2<-as.data.frame(tapply(data$DependentVariable,data[[IV]],mean))

out<-cbind(out,out2)

names(out)[3]<-"rf"

par.settings=trellis.par.set(superpose.line 
=

2,lty=c(1,3)),

list(cex = 1.5, pch = 
c(1,3),

              reference.line = list(col = 
"gray", lty ="dotted"))

plot<-dotplot(c(out$j,out$rf)~rep(out$IV,2),

    groups=rep(c("Method1","Method1"), each=nrow(out)),

        type="b",

scales=list(x=list(cex=1.3),y=list(cex=1.3)),

list(space = "top", points = TRUE, lines = TRUE,cex=1.3),

ylim=c(0,5),

xlab=list(conditions.long[i],cex=1.2,font=2),

ylab=list("Dependent Variable",cex=1.2,font=2),

cex.lab=1.5,

function(y,x,...) {

panel.grid(h = -1, v = -1)

    panel.xyplot(x, y, ...)

      ltext(x, y, labels=round(y,2), 
cex=1.3,col="black",font=1,pos=3)

})

dev.off()