qplot(y = Sepal.Length, x = Species, data = iris, geom = "boxplot", color = Species) + xlab("Iris Species") + ylab ("Sepal Length (mm)")