powered by
data(SAT)
data(SAT) 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