Adding Plots and Corresponding R Code