Create barplot.r