add all R code and graph