Fix plot4.R