Update Plot2.R