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