Tidy up some variable names
Completed R code to prodice plot2.png