Plots and the R Script file r added