Create plot1.R

Creating R code for First plot