 barchart(yield ~ year, data = barley,
  stack=TRUE,
  col="black",
  ylim=c(0,85),
 scales=list(x=list(labels=c(expression(atop(March, 1932)),
expression(atop(April, 1932)))))
 )

This gets most of what you want.

	[[alternative HTML version deleted]]

