data(SAT)
state
expend
ratio
salary
frac
verbal
math
sat
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