Update plot3.R

solution plot 3