[R] Lattice xyplot with text under x-axis

[kate.m]

Hi All, 

I have a data set which I need to plot and show the values of one of the
variables as a second x-axis. 

library(lattice) 
year<-c(2001,2002,2003,2004,2005,2006) 
fac<-c("arts","arts","arts","sci","sci","sci") 
staff<-c(95,98,99,32,31,36) 
part<-c(32,31,33,15,16,14) 
df1<-data.frame(year,fac,staff,part) 

xyplot(part~year, type="o", xlab="", ylab="") 

n.val.text<-paste("n = ", df1$staff, sep = "") 
mtext(n.val.text, side = 1, line = 3, at = axTicks(1), cex = 0.9) 

This works OK. The problem comes in when I plot the data in panels. 

xyplot(part~year | fac, as.table=TRUE, type="o", between=list(x=1,y=1),
xlab="", ylab="", 
scales=list(x=list(alternating=3),y=list(alternating=3), relation="free")) 

The mtext code doesn't work anymore. I think it needs some sort of panel
function (panel.groups?) which would tell it to show the appropriate values
of "staff" under their respective "year" for each "fac" and each panel. 

Could anyone please give me some pointers? I'm very new to R and completely
in the dark on this task. 
Thanks. 

-- 
View this message in context: http://www.nabble.com/Lattice-xyplot-with-text-under-x-axis-tp23061842p23061842.html
Sent from the R help mailing list archive at Nabble.com.