> Just reset the levels of z$sigma (and also redefine sigmaExpr):
>
> z$sigma <- factor(z$sigma,
> levels = c(5,10,20,30,50)) # new levels order
>
> sigmaExprList <- lapply(as.numeric(levels(z$sigma)),
> function(s) bquote(sigma == .(s)))
> sigmaExpr <- as.expression(sigmaExprList)
> INUExpr <- paste0("INU = ", c(0,20,40), "%")
>
> p <- bwplot(Error ~ Method | sigma + INU, data = z,
> scales = list(rot=90), horiz = FALSE,
> layout = c(5,3), col = "red")
>
> useOuterStrips(p,
> strip = strip.custom(
> factor.levels = sigmaExpr),
> strip.left = strip.custom(
> factor.levels = INUExpr)
> )
>
One last question: how do I draw a line h = 0, lty =2 through each plot?
Thanks a lot, this has been quite a learning experience for me wrt
lattice!
Ranjan
____________________________________________________________
GET FREE 5GB EMAIL - Check out spam free email with many cool features!
Visit http://www.inbox.com/email to find out more!
______________________________________________
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.
