Create plot1.R

R code to generate Plot 1