Create plot1.R

Code to produce plot1.png