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