modify plot1.R syntax