Some correction about plot4.R