Update Plot_3.R

Update