modify plot1.R