Create barplot_sidebyside.R