I recommend the panel function from the HH package

## install.packages("HH")  ## if necessary
library(HH)
bwplot(b~x|a,data=DF, panel=panel.bwplot.intermediate.hh,
          col = c("darkorange1","limegreen","magenta"))

Rich

On Sun, Apr 7, 2013 at 4:45 PM, Concha Bielza <mcbielza@fi.upm.es> wrote:

> Dear all,
>
> I would like to have the same color for the all boxplots from the same
> panel, but my code below shows the two colors alternating. Thanks!
>
> set.seed(42)
> D1 <- rnorm(200)
> D2 <- factor(sample(letters[1:2],**200,TRUE))
> D3 <- factor(sample(letters[3:5],**200,TRUE))
> DF <- data.frame(x=D1,a=D2,b=D3)
> print(bwplot(b~x|a,data=DF,**col=c("black","black"),
>              par.settings = list(box.rectangle =
> list(fill=c("darkorange1","**limegreen"))),
>              panel=function(x,...,col) {
>              panel.bwplot(x,...,col=col[**packet.number()])
>                                        }
>             )
>      )
>
> Thanks,
> Concha
>
> ______________________________**________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/**listinfo/r-help<https://stat.ethz.ch/mailman/listinfo/r-help>
> PLEASE do read the posting guide http://www.R-project.org/**
> posting-guide.html <http://www.R-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>

	[[alternative HTML version deleted]]

