Modify plot3.R to save plot3.png