fix plot4.R