Re: [R] Lattice: useOuterStrips and axes

2011-03-01 Thread Jim Price 
Thank you, that's exactly what I needed.

-- 
View this message in context: 
http://r.789695.n4.nabble.com/Lattice-useOuterStrips-and-axes-tp3330338p3330613.html
Sent from the R help mailing list archive at Nabble.com.

__
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.

Re: [R] Lattice: useOuterStrips and axes

2011-03-01 Thread Peter Ehlers 

On 2011-03-01 10:29, Jim Price wrote:

Consider the following:


library(lattice)
library(latticeExtra)

temp<- expand.grid(
subject = factor(paste('Subject', 1:3)),
var = factor(paste('Variable', 1:3)),
time = 1:10
)
temp$resp<- rnorm(nrow(temp), 10 * as.numeric(temp$var), 1)

ylimits<- by(temp$resp, temp$var, function(x) range(pretty(x)))

useOuterStrips(xyplot(
  resp ~ time | subject * var,
  data = temp,
  as.table = TRUE,
  scales = list(
alternating = 1, tck = c(1, 0),
y = list(relation = 'free', rot = 0, limits 
= rep(ylimits, each =
3))
)
  ))


This is a matrix of variables on subjects, where it makes sense to have
panel-specific y-axes because of the differing variable ranges. In fact, it
makes sense to have row-specific y-axes, because of the similarity of
intra-variable inter-subject response. However the graphic as presented
gives per-panel y-axis annotation - I'd like to drop the 2nd and 3rd columns
of y-axes labels, so the panels become a contiguous array.

Is this possible?


Looks like you want the combineLimits() function in latticeExtra.
Specifically,

 p <- [your code]
 combineLimits(p, margin.y = 1, extend = FALSE)

Peter Ehlers



Thanks,
Jim Price.
Cardiome Pharma. Corp.





__
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] Lattice: useOuterStrips and axes

2011-03-01 Thread Jim Price 
Consider the following:


library(lattice)
library(latticeExtra)

temp <- expand.grid(
subject = factor(paste('Subject', 1:3)),
var = factor(paste('Variable', 1:3)),
time = 1:10
)
temp$resp <- rnorm(nrow(temp), 10 * as.numeric(temp$var), 1)

ylimits <- by(temp$resp, temp$var, function(x) range(pretty(x)))

useOuterStrips(xyplot(
  resp ~ time | subject * var,
  data = temp,
  as.table = TRUE,
  scales = list(
alternating = 1, tck = c(1, 0),
y = list(relation = 'free', rot = 0, limits 
= rep(ylimits, each =
3))
)
  ))


This is a matrix of variables on subjects, where it makes sense to have
panel-specific y-axes because of the differing variable ranges. In fact, it
makes sense to have row-specific y-axes, because of the similarity of
intra-variable inter-subject response. However the graphic as presented
gives per-panel y-axis annotation - I'd like to drop the 2nd and 3rd columns
of y-axes labels, so the panels become a contiguous array.

Is this possible?

Thanks,
Jim Price.
Cardiome Pharma. Corp.



-- 
View this message in context: 
http://r.789695.n4.nabble.com/Lattice-useOuterStrips-and-axes-tp3330338p3330338.html
Sent from the R help mailing list archive at Nabble.com.

__
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.