# NOT RUN {
library(magrittr)
library(tidyr)
library(ggplot2)
bsflu %>%
  gather(variable,value,-date,-day) %>%
  ggplot(aes(x=date,y=value,color=variable))+
  geom_line()+
  labs(y="number of boys",title="boarding school flu outbreak")+
  theme_bw()
# }
Run the code above in your browser using DataLab