Displaying 1 result from an estimated 1 matches for "medians2".
Did you mean:
medians
2007 May 21
2
Questions about bwplot
...ged it only when in all panels the lowest median box should be filled with color.
trellis.device(color = FALSE)
my.boxpanel2 <- function(x, y, subscripts, groups, ...) {
orig <- groups[subscripts] == 0
medians<-tapply(y[orig],x[orig],median)
medians2<-medians[!is.na(medians)]
cols<-grey((1-as.numeric(medians2==min(medians2))/3))
z<-x[orig]
levels(z)<-c("A1","A2","A3",NA)
w<-y[orig]
panel.bwplot(z, w, fill=cols, ...)...