Added png plot to plot4.R