Create plot1.R

R program to create plot1