powered by
dat <- lyons.wheat xyplot(yield~factor(year), dat, group=loc, auto.key=list(columns=4), type=c('p','l'))
Run the code above in your browser using DataLab