[R] Lattice xyplot with text under x-axis

kate.m katherine797 at gmail.com
Wed Apr 15 17:59:08 CEST 2009


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.



More information about the R-help mailing list