complete 4 plots and R codes for 4 plots