redone the barplot.R script;
redone the barplot.Rmd: one dataframe will be generated with a function in dependence of the if cases.