plot1.R

R code for plot1