updated plot4.png and plot4.R