Add plot1.r