Completed plot1.R script and added image