plot3 Rscript