data(InsectSprays) # boxplot(count~spray, data=InsectSprays, col='lightgray') p15 <- rPlot(width = 720, x = "spray", y = "box(count)", data = InsectSprays, type = "box") p15$guides(x = list(min = 0, max = 110)) p15