modify plot4.R