On 2010-09-27 4:54, Christophe Bouffioux wrote:
bwplot(v2 ~ v1 | z, data = ex3, layout=c(3,2),
pch = "|",
par.settings = list(
plot.symbol = list(alpha = 1, col = "transparent",cex = 1,pch = 20)),
panel = function(x, y){
panel.bwplot(x, y)
X<- tapply(ex3$v1b, ex3[,c(1,2)], max)
Y<- seq(length(unique(ex3[,c(1,2)])))
panel.points(X, Y, pch = 17, col = "red")
})
Perhaps this is what you're trying to achieve:
bwplot(v2 ~ v1 | z, data = ex3, layout=c(3,2),
panel = function(x, y){
panel.bwplot(x, y, pch="|")
X <- tapply(ex3$v1b, ex3[, 1:2], max)
Y <- seq(nrow(unique(ex3[, 1:2])))
panel.points(X, Y, pch = 17, col = "red")
})
(I didn't see any need for your par.settings.)
I'm not crazy about the way you define X,Y. I think
I would augment the data frame appropriately instead.
-Peter Ehlers
______________________________________________
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.
