My plot4.R