Create R_code_all plots

R Code for all the plots.