updated plot3.R
plot 4