> library(lattice) > x <- bwplot(voice.part ~ height, data=singer, xlab="Height (inches)") > print(x)