powered by
capstring(names)
capstring(names(tinting)[c(3,4)]) library(lattice) levels(tinting$agegp) <- capstring(levels(tinting$agegp)) xyplot(csoa ~ it | sex * agegp, data=tinting)
Run the code above in your browser using DataLab