Add plot1.R