change plot3.R