Create plot1.R

code to create plot1