add plot3.R