Create plot1.R

R Code for plot1