Works great, thank you Paul! On Wed, Jul 27, 2016 at 5:24 PM, Paul Murrell <p...@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 > p...@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]] ______________________________________________ R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see 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.