Update Plot1_R.R