Create plot1.R

added script to generate plot1.png