plot2.r