Create Plot1

R code for plot1