Plot1 R code and png is ready for submission