Completed plot1.R and added png output