# NOT RUN {
ggplot(data = MILKCARTON, aes(x = size, y = seconds)) + geom_boxplot()
ggplot(data = MILKCARTON, aes(x = size, y = seconds, fill = size)) + geom_boxplot() +
guides(fill = "none") + scale_fill_brewer() +
labs(x = "size of container", y = "drying time in seconds")
# }
Run the code above in your browser using DataLab