Completed R scripts and png files for Plots 1 thru 4