Completed plot2.R and added png output