edit plot3.R script