commit the R code for plots 1 2 3 4