Update Plot1.R