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

Duncan Mackay mackay at northnet.com.au
Mon Apr 8 16:22:57 CEST 2013


Try


print(bwplot(b~x|a,data=DF,col=c("black","black"),
      panel=function(x,...) {
                   pnl = panel.number()
                   if (pnl 
==1)  panel.bwplot(x,fill="darkorange1",...) else 
panel.bwplot(x,fill="limegreen",...)
                                             }
      )  )

Someone else may have better ideas

Duncan

At 18:52 8/04/2013, you wrote:
>Dear Duncan,
>
>I didn't explain it well.
>I referred to having the same colors in the boxes to the left and 
>other different color for all the boxes to the right!
>Can you help me?
>
>Concha
>>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.
>>
>>______________________________________________
>>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.
>
>
>--
>Prof. Concha Bielza
>Department of Artificial Intelligence
>Technical University of Madrid
>Campus de Montegancedo, s/n
>28660 Boadilla del Monte
>Madrid
>tel: +34 91 336 7434
>fax: +34 91 352 4819
>http://cig.fi.upm.es/index.php/members/65-concha-bielza
>
>I try to answer my email quickly,
>but I normally check it only once a day.



More information about the R-help mailing list