Update Plot_4.R

Update