plot4 Rscript