R-code and png files for four plots added