created R code files to make the plots