R program to create plot1