Plots and R codes are ready