Completed plot5.R and added png output