r code and png files for 4 plots