[R] pdf function, resize xyplot plot automatically

[Peter Ehlers]

David,

I would use either the 'width=' argument to pdf() or
use a smaller font for the x-axis (or both).
Something like:

  pdf(file = "foo.pdf", width = 10)
  xyplot(Y ~ Time | as.factor(Subject), data = foo.frm,
         layout = c(2,2),
         scale = list(x = list(
              at = c(0, 15, 30, 45, 60, 90, 150, 210, 270),
              cex = 0.7)))
  dev.off()

   -Peter Ehlers

On 2010-06-02 12:34, Afshartous, David wrote:
>
> All,
>
> When saving plots to a pdf file via the pdf function, I would like to be
> able to automatically expand the graphics device to achieve the same result
> as when one does this manually (e.g., clicking the green expand button on
> the upper left of the graph on Mac OS).   Consider simple example below:
>
>
> library("lattice")
> foo.frm = data.frame(Subject = rep(c(1:4), each = 9), Y = rnorm(36), Time =
> rep(c( 0, 15, 30, 45, 60, 90, 150, 210, 270), 4))
> xyplot(Y ~ Time | as.factor(Subject), data = foo.frm, scale = list(x =
> list(at = c(0, 15, 30, 45, 60, 90, 150, 210, 270))))
>
> The tick marks are very close but this is resolved by expanding the graphics
> device as mentioned above.   However, in the code below the file that is
> created by the pdf function is created w/o such an adjustment.  I suppose
> one could work around this via changing the number of tick marks, but if
> there was a way to automatically achieve the expansion of the graph as when
> done manually that would be great.  Any tips much appreciated.
>
>
> pdf(file = "foo.pdf", onefile = T)
> xyplot(Y ~ Time | as.factor(Subject), data = foo.frm, scale = list(x =
> list(at = c(0, 15, 30, 45, 60, 90, 150, 210, 270))))
> dev.off()
>
>
> Thanks,
> David
>
> --------------------------------------
> David Afshartous, Ph.D.
> Research Assistant Professor
> University of Miami, Miller School of Medicine
> Division of Clinical Pharmacology
> 1500 N.W. 12th Avenue, 15th Floor West
> Miami, Florida 33136
>
> E-mail: afshar at med.miami.edu
> Phone: +1 305-243-1549
>