modified:   plot1.R