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