Dear Duncan and Pascal,
Thank you for the response.
Duncan:
I was able to fix the space between title and figure. I would also like to
have separate main titles for each row of figures in addition to the individual
titles.
xy <-xyplot(decrease ~ treatment, OrchardSprays,
main= "Some plot",
groups = rowpos, type = "a",
page = function(n){
grid.text(LETTERS[j],
y = 0.95,
x = 0.15,
default.units = "npc",
just = c("left"),
gp = gpar(fontsize = 12,fontface="bold") )
},
par.settings = c(simpleTheme(lty=1:8,
col="black",lwd=2),list(layout.heights = list(main = 1.2,
sub = 0,
axis.top = 0.2,
top.padding = 0.1,
bottom.padding = 0)) ),
auto.key = list(x = 0.2, y = 0.9,
cex = 0.75, points = FALSE, lines = TRUE))
j=1
print(xy, pos = c(0.0, 0.5, 0.33, 1.0), more = TRUE)
j=j+1
print(xy, pos = c(0.33, 0.5, 0.66, 1.0), more = TRUE)
j=j+1
print(xy, pos = c(0.66, 0.5, 0.99, 1.0), more = TRUE)
j=j+1
print(xy, pos = c(0.0, 0.0, 0.33, 0.5), more = TRUE)
j=j+1
print(xy, pos = c(0.33, 0.0, 0.66, 0.5), more = TRUE)
j=j+1
print(xy, pos = c(0.66, 0.0, 0.99, 0.5), more = FALSE)
Pascal:
I would prefer not to use panels as this is for publication purpose.
Many thanks,
Lisa
----- Original Message -----
From: Duncan Mackay <mac...@northnet.com.au>
To: Lisa Daniel <lisadaniel2...@yahoo.com>; r-help-r-project.org
<r-help@r-project.org>
Cc:
Sent: Wednesday, February 13, 2013 7:53 PM
Subject: Re: [R] Plotting multiple xyplots in same page
Hi Lisa
have a look at par.settings in ?xyplot
trellis.par.get() shows the settings
trellis.par.get()[[27]]
$left
$left$tck
[1] 1
$left$pad1
[1] 1
$left$pad2
[1] 1
$top
$top$tck
[1] 1
$top$pad1
[1] 1
$top$pad2
[1] 1
$right
$right$tck
[1] 1
$right$pad1
[1] 1
$right$pad2
[1] 1
$bottom
$bottom$tck
[1] 1
$bottom$pad1
[1] 1
$bottom$pad2
[1] 1
as an example:
par.settings = list(
layout.heights = list(main = 0,
sub = 0,
axis.top = 0.2,
top.padding = 0,
bottom.padding = 0) )
HTH
Duncan
Duncan Mackay
Department of Agronomy and Soil Science
University of New England
Armidale NSW 2351
Email: home: mac...@northnet.com.au
At 09:10 14/02/2013, you wrote:
>Dear Rhelp,
>
>I was able to plot 6 figures in one page. I do need help in
>reducing the space between the title and the plot and assigning
>A,B,C,D,E,F to each figure
>library(lattice)
>trellis.par.set(theme = col.whitebg())
>xy <- xyplot(decrease ~ treatment, OrchardSprays,
> main="Some plot",
> groups = rowpos, type = "a",
> auto.key = list(x = 0.2, y = 0.9,
> cex = 0.52, points = FALSE, lines = TRUE))
>
>
>print(xy, pos = c(0.0, 0.5, 0.33, 1.0), more = TRUE)
>print(xy, pos = c(0.33, 0.5, 0.66, 1.0), more = TRUE)
>print(xy, pos = c(0.66, 0.5, 0.99, 1.0), more = TRUE)
>print(xy, pos = c(0.0, 0.0, 0.33, 0.5), more = TRUE)
>print(xy, pos = c(0.33, 0.0, 0.66, 0.5), more = TRUE)
>print(xy, pos = c(0.66, 0.0, 0.99, 0.5), more = FALSE)
>
>Thanks in advance,
>Lisa
>
>
>
>----- Original Message -----
>From: Lisa Daniel <lisadaniel2...@yahoo.com>
>To: "r-help@r-project.org" <r-help@r-project.org>
>Cc:
>Sent: Wednesday, February 13, 2013 5:28 PM
>Subject: Plotting multiple xyplots in same page
>
>Dear Rhelp,
>
>I would like to have 6 xyplots in the same page. Similar to
>(par(mfrow=c(3,3))
>Found this example on the R archives.
>library(lattice)
>trellis.par.set(theme = col.whitebg())
>xy <- xyplot(decrease ~ treatment, OrchardSprays,
> groups = rowpos, type = "a",
> auto.key = list(x = 0.2, y = 0.9,
> cex = 0.75, points = FALSE, lines = TRUE))
>
>print(xy, pos = c(0.0, 0.0, 0.5, 0.5), more = TRUE)
>print(xy, pos = c(0.0, 0.5, 0.5, 1.0), more = TRUE)
>print(xy, pos = c(0.5, 0.0, 1.0, 0.5), more = TRUE)
>print(xy, pos = c(0.5, 0.5, 1.0, 1.0), more = FALSE)
>
>
>
>
>When I changed the print() to:
>
> print(xy, pos=c(0.0,0.0,0.33,0.33),more = TRUE),
>the figure was not looking good.
>
>Also, is it possible to assign A, B, C,D, etc for each figure.
>
>
>
>a<- rnorm(1000,0,1)
>b<- rnorm(1000,0,2)
>c<- rnorm(1000,0,3)
>d<- rnorm(1000,0,4)
>par(mfrow=c(2,2))
>hist(a,main="")
>title(main="A",adj=0)
>hist(b,main="")
>title(main="B",adj=0)
>hist(c,main="")
>title(main="C",adj=0)
>hist(d,main="")
>title(main="D",adj=0)
>
>
>I tried this to xyplot, but it was not working.
>
>Please help me.
>
>Many thanks in advance,
>Lisa.
>
>
>______________________________________________
>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.
