add a R script to plot 6 figures