add plot1.R