Added 4 plots and the R code used to generate them.