commiting plot 2 R script