Update Plot1.r