Update Plot_2.R

Update