data(OrchardSprays)
tufte.box  <- ggplot(data = OrchardSprays, aes(x = treatment, y = decrease)) +
    geom_tufteboxplot() +
    theme_tufte()
tufte.box