upload Plot2.R