I could use a little help writing a panel function to append text to each
panel of a lattice::barchart().  Below is a modified version of the barley
dataset to illustrate.

data(barley)
# add a new variable called samp.size
barley$samp.size<-round(runif(n=nrow(barley), min=0, max=50),0)
# Below is a barchart plot for this example
barchart(yield ~ variety | site, data = barley,
         groups = year, layout = c(1,6), stack = TRUE,
         auto.key = list(space = "right"),
         ylab = "Barley Yield (bushels/acre)",
         scales = list(x = list(rot = 45)))
# I need to add to each panel the sum of samp.size by the groups variable
(year) for that panel.
# So the text appended to the top panel (Waseca) might say "1931=15,
1932=20", and same for each subsequent panel.

	[[alternative HTML version deleted]]

