plot1 graph and R script