Updating plot1.R code and png