Create barplot_ggplot2.R