R Code to create plot1.png