[R] figure layout

[hesicaia]

Hello, 

I have a specific question regarding figure layout. I am tryng to make a 2
by 1 figure but I would like to make the bottom figure slightly larger than
the top figure. I have read through the help posts and have tried to use
"fig=c(....),new=T" and have also tried to use "split.screen" and although
they both work for most types of plotting(ie. hist, plot, etc...), for some
strange reason, they do not function when I try to use them with the
"metaplot" function in package "rmeta". The plot come out ok, but they are
on two separate pages instead of the same one. I realize this is a very
specific question, but was hoping someone might be able to suggest how I
could achieve this. Below is my code for both "fig" and "split.screen",
minus the axis labels which take up a lot of space in the code.
Thanks very much, Daniel.

***********************************************************************************
library(rmeta)
meta.n<-meta.summaries(ttable.n$lin.yeff,ttable.n$lin.se,method="random")
conf.n<-1/(meta.n$se.summary^2)
meta.c<-meta.summaries(ttable.c$lin.yeff,ttable.c$lin.se,method="random")
conf.c<-1/(meta.c$se.summary^2)

bitmap("/scratch/dboyce/nmfs/figs/yeareffs.all.metaplot.dev.pdf",type="pdfwrite",res=800,height=6,width=6,pointsize=12)
par(mfrow=c(2,1),mar=c(1,2,1,1),oma=c(4,6,.5,.5),cex.axis=.8,fig=c(0,1,.6,1))
metaplot(mn=ttable.n$lin.yeff,se=ttable.n$lin.se,nn=(ttable.n$dev)-.05,labels=NULL,conf.level=0.95,summn=meta.n$summary,sumse=meta.n$se.summary,sumnn=conf.n/700,logeffect=F,colors=meta.colors(box="firebrick3",lines="gray38",zero="black",summary="blue",text="black"),xlim=c(-.06,.16),cex=1.2,ylab="",summlabel="",xaxt="n")
axis(side=1,at=seq(-.06,.16,by=.03),labels=T)
text(-.06,0.5,"A",cex=1.4)
box()
 
par(fig=c(0,1,0,.6),new=T)
metaplot(ttable.c$lin.yeff,ttable.c$lin.se,nn=ttable.c$dev,labels=NULL,conf.level=0.95,summn=meta.c$summary,sumse=meta.c$se.summary,sumnn=conf.c/7000,logeffect=F,colors=meta.colors(box="firebrick3",lines="gray38",zero="black",summary="blue",text="black"),xlim=c(-.02,.06),cex=1.2,summlabel="",ylab="",xaxt="n")
text(-.02,0.5,"B",cex=1.4)
axis(side=1,at=seq(-.02,.06,by=.01),labels=T)
mtext("Instantaneous rate of change",side=1,line=3,cex=1.5)
box()
dev.off()

************************************************************************************
split.screen(figs=c(2,1),erase=F)
screen(1)
metaplot(mn=ttable.n$lin.yeff,se=ttable.n$lin.se,nn=(ttable.n$dev)-.05,labels=NULL,conf.level=0.95,summn=meta.n$summary,sumse=meta.n$se.summary,sumnn=conf.n/700,logeffect=F,colors=meta.colors(box="firebrick3",lines="gray38",zero="black",summary="blue",text="black"),xlim=c(-.06,.16),cex=1.2,ylab="",summlabel="",xaxt="n")
screen(2)
par(new=T)
metaplot(ttable.c$lin.yeff,ttable.c$lin.se,nn=ttable.c$dev,labels=NULL,conf.level=0.95,summn=meta.c$summary,sumse=meta.c$se.summary,sumnn=conf.c/7000,logeffect=F,colors=meta.colors(box="firebrick3",lines="gray38",zero="black",summary="blue",text="black"),xlim=c(-.02,.06),cex=1.2,summlabel="",ylab="",xaxt="n")
close.screen(all=T)

-- 
View this message in context: http://www.nabble.com/figure-layout-tp23242699p23242699.html
Sent from the R help mailing list archive at Nabble.com.