Plots and R codes for the plots_first commit