plot3 R Code