New ggplot bar plots for percentages and R code