library(lattice)
bwplot(voice.part ~ height, data=lattice::singer, 
       xlab="Height (inches)",
       par.settings=list(box.rectangle=list(col="black"), 
                         box.umbrella=list(col="black"), 
                         plot.symbol=list(col="black")))
grid.export()