[R] Colour filling in panel.bwplot from lattice

[David Winsemius]

On Nov 2, 2010, at 5:08 PM, Rainer Hurling wrote:

> On 02.11.2010 21:43 (UTC+1), David Winsemius wrote:
>>
>> On Nov 2, 2010, at 4:07 PM, Rainer Hurling wrote:
>>
>> snipped quite a bit of talking past each otther
>>>
>>> Of course your example with eight colours works, too. But as you can
>>> see in the plot, the colours have different order then in the vector
>>> 'colors()[(2:9)*10]' itself. I expected the first box (bass2)  
>>> coloured
>>> "bisque1", the second box (bass1) "blue4" and so on.
>>
>> Oh. Try putting the fill argument outside the panel and see if the  
>> panel
>> handles it in the manner you expect:
>>
>> bp3 <- bwplot(voice.part ~ height, data = singer, main = "fill arg
>> outside bwplot\n1] 'bisque1' 'blue4' 'burlywood3' 'chartreuse3'  
>> 'coral3'
>> 'cyan2' 'darkgray' 'darkorange", fill=colors()[(2:11)*10],
>> panel = function(...) {
>> panel.grid(v = -1, h = 0)
>> panel.bwplot( ...)
>> })
>> bp3
>>
>>>
>>> I hope, this explaination is a bit clearer than my preceding ones.
>>
>> And I hope my suggestion now "works".
>
> Thank you for the hint, that it works also outside of the panel. It  
> looks like I missed the wood for trees here ;-)
>
> In your latest, special case the colours work. After having a nearer  
> look at it I found that your colour vector has length 10 (2:11), and  
> only the first eight colours are filled in the boxes.

I don't know why the ordering only is irregularly preserved ...  
apparently in situations where the number of colors is a multiple of  
5. Perhaps a question that Sarkar, Andrews or Ehlers can answer. I  
looked at the code for bwplot and it uses panel.polygon for drawing  
the rectangles. The colors and other graphical parameters are supposed  
to be picked up from the box.rectangle settings in par.settings.  
(Trying to set those alos failed.)  I also looked at panel.polygon and  
do not see a reason for the shuffling of colors.

Wrong order also:
 > bp3 <- bwplot(voice.part ~ height, data = singer, main = "fill arg  
outside bwplot\n1] 'bisque1' 'blue4' 'burlywood3' 'chartreuse3'  
'coral3' 'cyan2' 'darkgray' 'darkorange", par.settings =  
list(box.rectangle=list(fill=colors()[(2:9)*10])), horizontal=TRUE,
+              panel = function(...) {
+                panel.grid(v = -1, h = 0)
+                panel.bwplot( ...)
+       })
 > bp3


>
> This seems to be reproducable:
>
> ### NOT WORKING: 8 colours in the not in order of given vector
> bwplot(voice.part ~ height, data = singer,
>  main = "NOT THE RIGHT ORDER OF COLOURS\n'yellow' 'blue' 'green'  
> 'red' 'pink' 'violet' 'brown' 'gold'",
>  fill=c("yellow","blue","green","red","pink","violet","brown","gold"))
>
> ### WORKING: 10 (8+2*NA) colours in order of given vector
> bwplot(voice.part ~ height, data = singer,
>  main = "RIGHT ORDER OF COLOURS\n'yellow' 'blue' 'green' 'red'  
> 'pink' 'violet' 'brown' 'gold'",
>   
> fill=c("yellow","blue","green","red","pink","violet","brown","gold",  
> NA, NA))
>
> I really do not understand what is going on here,

Me either.

> Rainer
>
>> David Winsemius, MD
>> West Hartford, CT
>

David Winsemius, MD
West Hartford, CT