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

[Paul Murrell]

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/