Dear expeRts,
I would like to have four plots appearing in one figure. The minimal example
shows this. However, the four figures are not properly aligned. Why? If I
comment out the scales=... arguments, then it works, but I would like to use
this... :-)
Cheers,
Marius
library(lattice)
set.seed(1)
## plot: xyplot, histogram, qqplot, acf
res.plots <- function(x){
x.max <- max(abs(min(x)),abs(max(x)))
## xyplot
x0 <- 1
x1 <- length(x)
y0 <- -x.max
y1 <- x.max
xy <- xyplot(x~(1:length(x)),xlim=c(x0,x1),ylim=c(y0,y1),
aspect=1,scales=list(relation="free",alternating=c(1,1),tck=c(1,0)))
## histogram
x0 <- -x.max
x1 <- x.max
h <- histogram(x,xlim=c(x0,x1),aspect=1,type="density",
scales=list(relation="free",alternating=c(1,1),tck=c(1,0)))
## qqplot
y0 <- -x.max
y1 <- x.max
qq <-
qqmath(x,ylim=c(y0,y1),aspect=1,scales=list(tck=c(1,0),y=list(rot=90)),
panel=function(...){
panel.qqmath(...)
panel.qqmathline(x)
})
## ACF
myacf <- acf(x,plot=F,lag.max=24)
x0=0
x1=24
y0=-1
y1=1
ACF <- xyplot(0~0,xlim=c(x0,x1),ylim=c(y0,y1),aspect=1,
scales=list(tck=c(1,0),y=list(rot=90)),
panel=function(...){
for(i in 1:24){
panel.segments(i,0,i,myacf$acf[i])
}
panel.abline(h=0)
})
## plot function
plot.list <- list(xy,qq,h,ACF)
counter <- 1
trellis.device(pdf,paper="special",width=6,height=6,file="myplot.pdf")
for(i in 1:2){
for(j in 1:2){
if(i==2 && j==2) print(plot.list[[counter]], split=c(j,i,2,2))
else print(plot.list[[counter]], split=c(j,i,2,2), more=TRUE)
counter <- counter + 1
}
}
dev.off()
}
x <- rexp(1000)
res.plots(x)
______________________________________________
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.
