plot4.R update