Update Plot_1.R

Update