updated plot4.R