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

Duncan Mackay mackay at northnet.com.au
Mon Apr 8 03:27:39 CEST 2013

```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.
>

```

More information about the R-help mailing list