plot4.png and plot4.R updated