R help - Mar 2006 - Layout, xyplot and saving in file

Dear all,

I am trying to use layout with xyplot and save the plot in a file. 

The saved file contains only the last panel (used jpg, wmf and pdf
options in the savePlot function)

I am not familiar with the graphic file formats and don't know if they
can handle multipage output.

If not do I need to loop by ndose in the following script ?

Here is my script:
-----------------------------------------------------------------------------------------
lattice.options(default.theme ="col.whitebg")
trellis.device(width=11.9, height=8.5, new = TRUE)
couleurs<-brewer.pal(5,"Dark2")
sp <- list(superpose.symbol = list(pch =c(1,15,2,12,19),cex
0.4,col=couleurs),
           superpose.line = list(col = couleurs, lty =1:5, cex=1)) 
test<-xyplot(egheart~ctime|patnam, data=decg, type="b",
groups=ndose,
       main="Heart Rate",
       xlab = "Time", ylab = "Heart Rate (bpm)",
       layout=c(2,5),
       par.strip.text=list(cex=0.5),
       auto.key       
list(title="Dose",cex.title=1,columns=5,space="top",points=TRUE,lines=TRUE),
       scale=list(x=list(rot=45,tick.number=0,
       relation="free",cex=0.01,tck=0.1),             
       y=list(tick.number=6),cex=0.6,rot=45,relation="free"),
       par.settings=sp,
       index.cond=list(unique(decg$patnam[order(decg$ndose)])) 
           )
print(test)
savePlot(filename="d:/plotfiles/HRindiv",
              type="wmf",
              device=dev.cur())
----------------------------------------------------------------------------------------------
Note that the cex=0.01 in the x scale is the poor man's solution that I
have found to minimize
the height of the labelling of the x axis as apparently there is no way
to take it out when relation is set to "free" and get something that I
can save taking out the layout line. 

Thanks for any advice on how to use layout and save the multiple pages
in a file,

Best regards, Jean-Louis

On 3/11/06, Jean-Louis Abitbol <abitbol at sent.com>
wrote:
> Dear all,
>
> I am trying to use layout with xyplot and save the plot in a file.
>
> The saved file contains only the last panel (used jpg, wmf and pdf
> options in the savePlot function)
Don't do that; instead, use the device functions directly. For example,

pdf(file = "test.pdf")
print(test)
dev.off()
> I am not familiar with the graphic file formats and don't know if they
> can handle multipage output.
Multiple page support depends on the device, e.g. pdf() does, jpeg()
doesn't. Look at the respective help pages for details (and ?Devices
for an overview). Also look at ?trellis.device for pertinent comments.

-Deepayan