Completed plot4.R and added png output