Modify plot1.R to save plot1.PNG