Added plot1.png and R code