Added Plot1 (R script and generated png file)