# NOT RUN {
# Boxplot
ggplot(data = RATBP, aes(x = group, y = mmHg)) + geom_boxplot()
ggplot(data = RATBP, aes(x = group, y = mmHg, fill = group)) + geom_boxplot() +
guides(fill = "none") + labs(x = "", y = "drops in blood pressure in mm of Hg") +
scale_fill_brewer()
# }
Run the code above in your browser using DataLab