Update plot3.R

fixed x