# Default settings for bar chart ggplot(data_categories_summarised, aes(x = animal, y = value)) + geom_col(fill = 'royalblue4') + scale_y_continuous(labels = scales::percent_format(accuracy = 1)) + labs(title = element_text("What is your favourite animal?")) + ylab("Percent of respondents")