Adding R code and png files for four plots