add plot1.r