[R] Same boxplot colors by panels in lattice (bwplot)

[Duncan Mackay]

Hi Concha

You nearly got there try:

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,
              par.settings = list(box.dot = list(rep("black",3)),
                                  superpose.line = list(col = 
c("darkorange1","limegreen","magenta")),
                                  box.umbrella = list(col = 
c("darkorange1","limegreen","magenta")),
                                  box.rectangle = 
list(fill=c("darkorange1","limegreen","magenta"),
                                                       col = 
c("darkorange1","limegreen","magenta"))),
              panel=function(x,...,col) {
              panel.bwplot(x,...,col=col[packet.number()])
                                        }
             )
      )

Duncan

Duncan Mackay
Department of Agronomy and Soil Science
University of New England
Armidale NSW 2351
Email: home: mackay at northnet.com.au



At 06:45 8/04/2013, you 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 at 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.
>