Create plot1.R

R code for plot 1.