Create barplot.R