Modify plot1.R to create plot1.png