Added plot2.R