Adding 4 Plots and 4 R codes"