plot3 R script and PNG