Update barplot.R