plot1.R Code to generate plot1.png