> 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