plot1.R - R Code to generate plot1.png