Plots and R codes