CP2 cleaned up R code a bit
CP1 fix axis labels