data(singer)
bwplot(voice.part ~ height, data=singer, xlab="Height (inches)")
bwplot(voice.part ~ height, data=singer,
prepanel=function(x,y)
list(xlim=range(x,c(58,74))),
panel=function(...) {
panel.bwplot(...)
panel.abline(v=c(60,72)) # reference line 5 and 6 feet
})
Run the code above in your browser using DataLab