Create plot1.R

R code for png1 includes read in of data and creation of png