Hi
In the development version of R, there is a new showViewport() function
that might help with debugging this sort of thing. Try ...
showViewport()
... or possibly ...
showViewport(newpage=TRUE)
... just after drawing your plot.
Paul
Deepayan Sarkar wrote:
> On Tue, Apr 28, 2009 at 11:51 AM, Sebastien Bihorel
> <sebastien.biho...@cognigencorp.com> wrote:
>> Dear R-users,
>>
>> I am trying to understand what the different padding arguments in
>> trellis.par.set are exactly controlling the space around lattice plots. I
>> have used the following code as a basis for testing but it did not really
>> help me to visualize how the value of each argument changes the margins and
>> the plotting area. I guess a better way to visualize the effects of these
>> padding items would be to create colored polygons for each related "area" of
>> interest... but I would need to know what are these areas beforehand!
>
> You can retrieve the undelying grid layout and show it using
>
> library(grid)
> grid.show.layout(lattice:::lattice.getStatus("layout.details")$page.layout)
>
> which is close to what you are describing. Otherwise, there's no easy
> way to insert polygons in these areas that I know of.
>
> You could try setting negative padding values to see what they do.
>
> -Deepayan
>
>> Any advise on how to improve this code would be greatly appreciated.
>>
>> Sebastien
>>
>> #######################
>> library(lattice)
>> foo <-
>> data.frame(x=rep(seq(10),9),y=rep(seq(10),9),z=rep(0,90),id=rep(seq(9),each=10))
>> plot1 <- xyplot(y+z~x|id,
>> data=foo,
>> type=c("p","l"),
>> distribute.type = TRUE,
>> main="This is a test",
>> sub="Subtitle",
>> auto.key=T)
>> trellis.device(pdf, file = "trellis_par_test.pdf",
>> paper="letter",
>> #family="Courier",
>> theme = list(fontsize = list(text = 10, points = 10)))
>> trellis.par.set(layout.widths =list(left.padding=0,
>> right.padding=0),
>> layout.heights=list(top.padding =1,
>> main.key.padding =1,
>> axis.xlab.padding=1,
>> key.sub.padding =1,
>> bottom.padding =1),
>> axis.components=list(top=list(tck=1,
>> pad1=1,
>> pad2=1), right=list(tck=1,
>> pad1=1,
>> pad2=1))) print(plot1)
>> dev.off()
>> ###########################
>>
>>
>>
>> --
>> *Sebastien Bihorel, PharmD, PhD*
>> PKPD Scientist
>> Cognigen Corp
>> Email: sebastien.biho...@cognigencorp.com
>> <mailto:sebastien.biho...@cognigencorp.com>
>> Phone: (716) 633-3463 ext. 323
>>
>> ______________________________________________
>> 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.
>>
>
> ______________________________________________
> 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.
--
Dr Paul Murrell
Department of Statistics
The University of Auckland
Private Bag 92019
Auckland
New Zealand
64 9 3737599 x85392
p...@stat.auckland.ac.nz
http://www.stat.auckland.ac.nz/~paul/
______________________________________________
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.
