Uploaded old plot1.R file that was missing the png creation