On 3/10/09, Saptarshi Guha <saptarshi.g...@gmail.com> wrote:
> Hello,
> I have an example of a 2 paneled plot, with two different aspect
> ratios displayed on one page.
> An example would help
>
> n=20
> x1 <- cumsum(runif(n))
> x2 <- cumsum(runif(n))
> d <- data.frame(val=c(x1,x2),id=c(1:n,1:n), nt=c(rep("A",n),rep("B",n)))
> u1 <- xyplot(val~id | nt, data=d,aspect=1,layout=c(1,2))
> u2 <- xyplot(val~id|nt, data=d,aspect=0.5,layout=c(1,2))
> postscript("~/k.ps",colormodel="rgb",paper="letter",horiz=T)
> print(u1,position=c(0,0,1/3,1),more=T,newpage=T)
> print(u2,position=c(1/3,0,1,1),more=F,newpage=F)
> dev.off()
>
>
> The two figures are not base aligned. I would like them share the same
> the baseline and same height, if necessary the paper width and height
> can be adjusted
> ( i tried setting the paper width and height to no avail).
This worked for me:
postscript("~/k.ps",colormodel="rgb",paper="special", horizontal = FALSE,
height = 6, width = 10)
print(u1,position=c(0,0,1/3,1),more=T,newpage=T)
print(u2,position=c(1/3,0,1,1),more=F,newpage=F)
dev.off()
-Deepayan
______________________________________________
R-help@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.
