plot 2 graph and R script