plot 3 graph and R script