Hello - I'm stumped on a lattice question. I'll start with my existing code:

library(lattice)
library(latticeExtra)

# no https for read.csv...
tab <- read.csv(pipe('curl -s https://raw.github.com/gist/6323455'))

fig <- barchart(assignment ~ freq | label,
                 groups=method,
                 data=tab,
                 scales=list(y=list(relation='free')),
                 auto.key=TRUE,
                 strip = FALSE, strip.left = TRUE,
                 layout=c(1, length(levels(tab$label))),
                 drop.unused.levels=TRUE
                 )
resizePanels(fig)

pdf('plot.pdf', height=17)
plot(fig)
dev.off()

Here's the output: http://cl.ly/image/3B3s3L032I3p

My intention is to produce a plot showing the relative frequency of each
category in "assignment" conditioned by "label" (with paired bars for each
value of "method") - but I can't figure out how to resize each panel along
the y axis and show only categories that have corresponding x values in
each panel.  Looking at Fig 10.21 in the lattice book (
http://lmdvr.r-forge.r-project.org/figures/figures.html) I thought that
resizePanels() might do the trick, but no luck there.

Any help would be much appreciated.

Thanks a lot,
Noah

	[[alternative HTML version deleted]]

