This function uses a nice template for barplots.
gg_bars(names, n, p = NA, title = NA, subtitle = NA,
axis = "Counter", obs = TRUE, limit = 15, na.rm = FALSE)
Character Vector. Bar names
Numeric Vectors. n for counter, p to force percentage.
Character. Texts for plot
Boolean. Show observations counter?
Integer. Limit n most frequent values only
Boolean. Remove empty and NAs?