modified:   plot4.R