thr3ads.net - R help - [R] Different gridlines per panel in xyplot [Feb 2007]

If this information is useful, please help other people find it:
Share via:

Rene Braeckman

2007-Feb-21 04:52 UTC

[R] Different gridlines per panel in xyplot

In the example R script below, horizontal gray gridlines are drawn at y
coordinates where the points are drawn with the code:
 
panel.abline(h=y, v=xScale, col.line="gray")

How do I change this so that the horizontal gray gridlines are drawn at y
coordinates where the y labels are drawn? The challenge is that each panel
has different y-ranges (in my real example the y-ranges and y-intervals are
even more different). For example, I wish I could use the yScale list as the
h parameter in abline, but it does not work with a list.
 
Thanks for any help.
Rene
 
library(lattice)
Subj <- rep(1:4,each=3)
Time <- rep(1:3,4) + 0.1
Conc <- (1:12) + 0.1
df <- data.frame(Subj,Time,Conc)
xScale <- 1:3
yScale <- list(1:3,4:6,7:9,10:12)
xyplot(Conc ~ Time | Subj,
       data = df,
       layout = c(2,2),
       type="b",
       scales=list(
          x=list(at=xScale),
          y=list(at=yScale,relation="free")
       ),
       panel = function(x,y,...) {
           panel.abline(h=y, v=xScale, col.line="gray")
           panel.xyplot(x,y,...)
      }
)

Bernd Weiss

2007-Feb-21 05:44 UTC

head link

[R] Different gridlines per panel in xyplot

Am 20 Feb 2007 um 20:52 hat Rene Braeckman geschrieben:

From:           	"Rene Braeckman" <RMan54 at cox.net>
To:             	<r-help at stat.math.ethz.ch>
Date sent:      	Tue, 20 Feb 2007 20:52:29 -0800
Subject:        	[R] Different gridlines per panel in xyplot
> In the example R script below, horizontal gray gridlines are drawn at
> y coordinates where the points are drawn with the code:
> 
> panel.abline(h=y, v=xScale, col.line="gray")
> 
> How do I change this so that the horizontal gray gridlines are drawn
> at y coordinates where the y labels are drawn? The challenge is that
> each panel has different y-ranges (in my real example the y-ranges and
> y-intervals are even more different). For example, I wish I could use
> the yScale list as the h parameter in abline, but it does not work
> with a list.
> 
> Thanks for any help.
> Rene
> 
> library(lattice)
> Subj <- rep(1:4,each=3)
> Time <- rep(1:3,4) + 0.1
> Conc <- (1:12) + 0.1
> df <- data.frame(Subj,Time,Conc)
> xScale <- 1:3
> yScale <- list(1:3,4:6,7:9,10:12)
> xyplot(Conc ~ Time | Subj,
>        data = df,
>        layout = c(2,2),
>        type="b",
>        scales=list(
>           x=list(at=xScale),
>           y=list(at=yScale,relation="free")
>        ),
>        panel = function(x,y,...) {
>            panel.abline(h=y, v=xScale, col.line="gray")
>            panel.xyplot(x,y,...)
>       }
> )
> 
Dear Rene,

I am not quite sure whether this is the most elegant/general 
solution, but one option might be to use trunc(), see the full code 
below.

panel.abline(h=trunc(y), v=xScale, col.line="gray")


library(lattice)
Subj <- rep(1:4,each=3)
Time <- rep(1:3,4) + 0.1
Conc <- (1:12) + 0.1
df <- data.frame(Subj,Time,Conc)
xScale <- 1:3
yScale <- list(1:3,4:6,7:9,10:12)
xyplot(Conc ~ Time | Subj,
       data = df,
       layout = c(2,2),
       type="b",
       scales=list(
          x=list(at=xScale),
          y=list(at=yScale,relation="free")
       ),
       panel = function(x,y,...) {
		## use trunc(y)
           panel.abline(h=trunc(y), v=xScale, col.line="gray")
           panel.xyplot(x,y,...)
      }
)


HTH,

Bernd

Rene Braeckman

2007-Feb-21 05:51 UTC

head link

[R] Different gridlines per panel in xyplot

Thanks for the reply. Trunc would only work when the truncated y values
result in the desired y coordinates for the grid lines as in this simple
data set. Since my real dataset contains many more points, it does not give
a general solution.

Rene  

-----Original Message-----
From: Bernd Weiss [mailto:bernd.weiss at uni-koeln.de] 
Sent: Tuesday, February 20, 2007 9:44 PM
To: Rene Braeckman; r-help at stat.math.ethz.ch
Subject: Re: [R] Different gridlines per panel in xyplot

Am 20 Feb 2007 um 20:52 hat Rene Braeckman geschrieben:

From:           	"Rene Braeckman" <RMan54 at cox.net>
To:             	<r-help at stat.math.ethz.ch>
Date sent:      	Tue, 20 Feb 2007 20:52:29 -0800
Subject:        	[R] Different gridlines per panel in xyplot
> In the example R script below, horizontal gray gridlines are drawn at 
> y coordinates where the points are drawn with the code:
> 
> panel.abline(h=y, v=xScale, col.line="gray")
> 
> How do I change this so that the horizontal gray gridlines are drawn 
> at y coordinates where the y labels are drawn? The challenge is that 
> each panel has different y-ranges (in my real example the y-ranges and 
> y-intervals are even more different). For example, I wish I could use 
> the yScale list as the h parameter in abline, but it does not work 
> with a list.
> 
> Thanks for any help.
> Rene
> 
> library(lattice)
> Subj <- rep(1:4,each=3)
> Time <- rep(1:3,4) + 0.1
> Conc <- (1:12) + 0.1
> df <- data.frame(Subj,Time,Conc)
> xScale <- 1:3
> yScale <- list(1:3,4:6,7:9,10:12)
> xyplot(Conc ~ Time | Subj,
>        data = df,
>        layout = c(2,2),
>        type="b",
>        scales=list(
>           x=list(at=xScale),
>           y=list(at=yScale,relation="free")
>        ),
>        panel = function(x,y,...) {
>            panel.abline(h=y, v=xScale, col.line="gray")
>            panel.xyplot(x,y,...)
>       }
> )
> 
Dear Rene,

I am not quite sure whether this is the most elegant/general solution, but
one option might be to use trunc(), see the full code below.

panel.abline(h=trunc(y), v=xScale, col.line="gray")


library(lattice)
Subj <- rep(1:4,each=3)
Time <- rep(1:3,4) + 0.1
Conc <- (1:12) + 0.1
df <- data.frame(Subj,Time,Conc)
xScale <- 1:3
yScale <- list(1:3,4:6,7:9,10:12)
xyplot(Conc ~ Time | Subj,
       data = df,
       layout = c(2,2),
       type="b",
       scales=list(
          x=list(at=xScale),
          y=list(at=yScale,relation="free")
       ),
       panel = function(x,y,...) {
		## use trunc(y)
           panel.abline(h=trunc(y), v=xScale, col.line="gray")
           panel.xyplot(x,y,...)
      }
)


HTH,

Bernd

Rene Braeckman

2007-Feb-21 06:06 UTC

head link

[R] Different gridlines per panel in xyplot

I solved my own problem. Suddenly remembered the list of very useful
functions under "Accessing Auxiliary Information During Plotting" in
the
help pages.

Here is the line that did the trick:

panel.abline(h=yScale[[panel.number()]], v=xScale, col.line="gray")

Rene 

-----Original Message-----
From: r-help-bounces at stat.math.ethz.ch
[mailto:r-help-bounces at stat.math.ethz.ch] On Behalf Of Rene Braeckman
Sent: Tuesday, February 20, 2007 8:52 PM
To: r-help at stat.math.ethz.ch
Subject: [R] Different gridlines per panel in xyplot

In the example R script below, horizontal gray gridlines are drawn at y
coordinates where the points are drawn with the code:
 
panel.abline(h=y, v=xScale, col.line="gray")

How do I change this so that the horizontal gray gridlines are drawn at y
coordinates where the y labels are drawn? The challenge is that each panel
has different y-ranges (in my real example the y-ranges and y-intervals are
even more different). For example, I wish I could use the yScale list as the
h parameter in abline, but it does not work with a list.
 
Thanks for any help.
Rene
 
library(lattice)
Subj <- rep(1:4,each=3)
Time <- rep(1:3,4) + 0.1
Conc <- (1:12) + 0.1
df <- data.frame(Subj,Time,Conc)
xScale <- 1:3
yScale <- list(1:3,4:6,7:9,10:12)
xyplot(Conc ~ Time | Subj,
       data = df,
       layout = c(2,2),
       type="b",
       scales=list(
          x=list(at=xScale),
          y=list(at=yScale,relation="free")
       ),
       panel = function(x,y,...) {
           panel.abline(h=y, v=xScale, col.line="gray")
           panel.xyplot(x,y,...)
      }
)

______________________________________________
R-help at stat.math.ethz.ch 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.

Seemingly Similar Threads

Search for more possibly parallel threads

R help - Feb 2007 - Different gridlines per panel in xyplot

[R] Different gridlines per panel in xyplot

[R] Different gridlines per panel in xyplot

[R] Different gridlines per panel in xyplot

[R] Different gridlines per panel in xyplot

Seemingly Similar Threads