Commiting Plots R code and graph