Update Plot1.R

Correction the code