Create plot1.r

R code for plot 1