Update plot4.R

Update plot4.R