final tweak on plot3.R