Update Plot2.r