Create plot1.R

Code for plot1.png