add the R script used to draw figure.