Add plot2.R