Ethan,
Jim Lemon skrev 2013-05-24 00:09:
On 05/24/2013 06:21 AM, Belair, Ethan D wrote:
example.plot = xyplot(ht ~ time|tree, data=data,
type = c("r", "g", "p"),
par.settings=simpleTheme(col="blue"),
main="abc",
)
example.plot
> ...
If you read '?xyplot' carefully, you'll note that 'index.cond' is
allowed to be a function. So I'd just use
update(example.plot, index.cond = function(x, y) coef(lm(y ~ x))[2])
to get the panels ordered by slope.
HTH,
Henric
Hi Ethan,
This may be what you want:
panel.slope<-function(panel) {
return(diff(range(panel$y,na.rm=TRUE))/
diff(range(panel$x,na.rm=TRUE)))
}
panel.order<-
order(unlist(lapply(example.plot$panel.args,panel.slope)))
Jim
______________________________________________
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.