Updated plot4.R