trying again to commit plot 4 R script