[FORGED] Lattice barchart legend with panel.barchart
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/