commit the R code for plots 1 2 3 4 and png - final fix to plot4.R and plot4.png