## ----libraries, message=FALSE, warning=FALSE, cache=FALSE------------------------------------------------------------- library("dplyr") library("ggplot2") library("tidyr") ## ----set_seed--------------------------------------------------------------------------------------------------------- set.seed(2)