data(OrchardSprays)
box.graph <- ggplot(data = OrchardSprays, aes(x = treatment, y = decrease)) +
    geom_boxplot()
box.graph