add R script used to draw experiment figure.