Groups in histograms?

Dear list,

Sorry for answering my own post, but I have had partial sucess in
this. With the panel function below, I get separate histograms in each
panel using the group argument.

histogram(~vot | agem, nint=50,data=work,groups=Type, subset=agem > 24
& agem < 30, panel=panel.grouphist,type="count",ylim=c(0,20),auto.key=T)

panel.grouphist <- function(x,groups,...){
  add <- T
  grouplevels <- unique(groups)
  ngroups <- length(grouplevels)

  for(i in 1:ngroups){
    gcol <- trellis.par.get("superpose.fill")$col[i]
    gx <- x[groups == grouplevels[i]]
    panel.histogram(gx,col=gcol,...)
  }

}

However, the color I get in the key using simpleKey is not the same as
the one in the the plot.
How do I get the two functions to use the same color scale?

/Fredrik

Groups in histograms?

Thread (3 messages)