# NOT RUN {
data(SAT)
if (require(lattice)) {
xyplot(sat ~ expend, SAT)
xyplot(sat ~ expend, SAT,
panel=function(x,y){grid.text(abbreviate(SAT$state, 3), x, y, default.units='native')})
}
# }
Run the code above in your browser using DataLab