Modify plot3.R with more efficient code