4 R code file and 4 png