[R] Sweave and multipage lattice

[Friedrich Leisch]

>>>>> On Wed, 19 Jul 2006 11:01:02 -0500,
>>>>> Sundar Dorai-Raj (SD) wrote:

  > Dieter Menne wrote:
  >> Dear R-Listeners,
  >> 
  >> as the Sweave faq says:
  >> 
  >> http://www.ci.tuwien.ac.at/~leisch/Sweave/FAQ.html
  >> 
  >> creating several figures from one figure chunk does not work, and for
  >> standard graphics, a workaround is given. Now I have a multipage trellis
  >> plot with an a-priori unknown number of pages, and I don't see an elegant
  >> way of dividing it up into multiple pdf-files.
  >> 
  >> I noted there is a "page" event handler in the ... parameters, which would
  >> provide a handle to open/close the file.
  >> 
  >> Any good idea would be appreciated.
  >> 
  >> Dieter
  >> 

  > Hi, Dieter,

  > I haven't seen a reply to this and I don't know Sweave. However, will 
  > the following example work? It does require you know the layout for one 
  > page.

  > --sundar

  > library(lattice)

  > trellis.device(postscript, file = "barley%02d.eps",
  >                 width = 5, height = 3, onefile = FALSE,
  >                 paper = "special")
  > ## from ?xyplot
  > dotplot(variety ~ yield | site, data = barley, groups = year,
  >          key = simpleKey(levels(barley$year), space = "right"),
  >          xlab = "Barley Yield (bushels/acre) ",
  >          aspect=0.5, layout = c(1, 1), ylab=NULL)
  > dev.off()

  > files <- list.files(pattern = glob2rx("barley*.eps"))
  > for(file in files)
  >    cat("\\includegraphics{", file, "}\n\n", sep="")

Yes, doing the above embedded in a chunk with results=tex should do
the trick. You may need to enclose the call to dotplot() in print()
though.

Best,
Fritz

-- 
-----------------------------------------------------------------------
Prof. Dr. Friedrich Leisch 

Institut für Statistik                          Tel: (+49 89) 2180 3165
Ludwig-Maximilians-Universität                  Fax: (+49 89) 2180 5308
Ludwigstraße 33
D-80539 München                 http://www.stat.uni-muenchen.de/~leisch