Update plot4.R

solution plot 4