plot 4

R script and png files for plot 4