[R] [FORGED] Lattice barchart legend with panel.barchart

[Seth Bigelow]

Works great, thank you Paul!

On Wed, Jul 27, 2016 at 5:24 PM, Paul Murrell <paul at stat.auckland.ac.nz>
wrote:

> Hi
>
> Try this ...
>
> barchart(Class~Freq|Sex + Age, Titan,
>          groups=Survived,
>          panel = titanpanel,
>          stack=TRUE, layout=c(4,1),
>          key=simpleKey(title="Survived", text=levels(Titan$Survived),
>                        rectangles=TRUE, points=FALSE, columns=2))
>
> Paul
>
> On 28/07/16 09:02, Seth Bigelow wrote:
>
>> I have constructed a barchart that requires a panel call, but the panel
>> reduces the facsimiles of bars in the legend to small colored circles. You
>> can see this behavior in the following example:
>>
>> Titan <- as.data.frame(Titanic)
>>
>> titanpanel <- function(x,y,...){
>> panel.barchart(x,y,...)
>> }
>>
>> barchart(Class~Freq|Sex + Age, Titan,
>> groups=Survived,
>> panel = titanpanel,
>> stack=TRUE, layout=c(4,1),
>> auto.key=list(title="Survived", columns=2))
>>
>> ...if you comment out the panel and run the barchart statement you will
>> see
>> nice blocks displayed in the legend. Is there any easy way to retain these
>> blocks with panel.barchart?
>>
>>
>>
> --
> Dr Paul Murrell
> Department of Statistics
> The University of Auckland
> Private Bag 92019
> Auckland
> New Zealand
> 64 9 3737599 x85392
> paul at stat.auckland.ac.nz
> http://www.stat.auckland.ac.nz/~paul/
>



-- 
Seth W. Bigelow, Ph.D.
Assistant Scientist of Forest Ecology
Joseph W. Jones Ecological Research Center
Newton, GA
(229)-734-4706 x-270

	[[alternative HTML version deleted]]