> xyplot( Murder ~ Frost, groups=Region, data=tmp.state, > panel.groups=function(...){panel.loess(...);panel.xyplot(...)} > ,span=.8) or more simply (but with less control over options) xyplot( Murder ~ Frost, groups=Region, data=tmp.state, type=c("p","smooth")) Hadley