72 lines
3.1 KiB
R
72 lines
3.1 KiB
R
#' @title Simple bar chart
|
|
#'
|
|
#' @param df A data frame.
|
|
#' @param x A numeric column.
|
|
#' @param y A character column or coercible as a character column.
|
|
#' @param group Some grouping categorical column, e.g. administrative areas or population groups.
|
|
#' @param palette Palette name from 'pal_reach()'.
|
|
#' @param percent TRUE or FALSE. Should the x-labels be displayed as percentages? Default to TRUE.
|
|
#' @param reverse Boolean indicating whether the palette should be reversed.
|
|
#' @param family The font family for all plot's texts. Default to "Leelawadee".
|
|
#' @param alpha Transparency.
|
|
#' @param width Width.
|
|
#' @param x_title The x scale title. Default to NULL.
|
|
#' @param y_title The y scale title. Default to NULL.
|
|
#' @param group_title The group legend title. Default to NULL.
|
|
#' @param position Should the chart be stacked? Default to "dodge". Can take "dodge" and "stack".
|
|
#' @param title Plot title. Default to NULL.
|
|
#' @param subtitle Plot subtitle. Default to NULL.
|
|
#' @param caption Caption title string. Default to NULL.
|
|
#' @param text_size The size of all text other than the title, subtitle and caption. Defaults to 10.
|
|
#' @param title_size The size of the title text. Defaults to 14.
|
|
#' @param legend_position Position of the legend; Default to "right". Can take "right", "left", "top", "bottom" or "none".
|
|
#' @param legend_rev Reverse the color in the guide? Default to TRUE.
|
|
#' @param ... Other arguments to be passed to "ggblanket::gg_col"
|
|
#'
|
|
#' @description `ggblanket` as internals for deciding whether the bar chart is horizontally readable.
|
|
#'
|
|
#' @return A bar chart
|
|
#'
|
|
#' @export
|
|
bar_reach <- function(df, x, y, group = NULL, percent = TRUE, palette = "main", reverse = FALSE, family = "Leelawadee", alpha = 1, width = 0.5, x_title = NULL, y_title = NULL, group_title = NULL, position = "dodge", title = NULL, subtitle = NULL, caption = NULL, text_size = 10, title_size = 14, legend_position = "right", legend_rev = TRUE, ...){
|
|
|
|
pal <- pal_reach(palette)
|
|
|
|
if(is.null(pal)) rlang::warn(
|
|
c(paste0("There is no palette '", palette, "' for initiative 'reach'. Fallback to ggblanket's default color palette."),
|
|
"i" = paste0("Use `pal_reach(show_palettes = T)` to see the list of availabale palettes.")
|
|
)
|
|
)
|
|
|
|
if (percent) x_labels <- scales::percent else x_labels <- NULL
|
|
|
|
pl <- df |>
|
|
ggblanket::gg_col(x = {{ x }},
|
|
y = {{ y }},
|
|
col = {{ group }},
|
|
x_title = x_title,
|
|
x_labels = x_labels,
|
|
y_title = y_title,
|
|
col_title = group_title,
|
|
alpha = alpha,
|
|
width = width,
|
|
position = position,
|
|
title = title,
|
|
subtitle = subtitle,
|
|
caption = caption,
|
|
col_legend_place = legend_position,
|
|
theme = theme_reach(
|
|
palette = palette,
|
|
reverse = reverse,
|
|
family = family,
|
|
text_size = text_size,
|
|
title_size = title_size,
|
|
plot_background_pal = "#FFFFFF",
|
|
panel_background_pal = "#FFFFFF",
|
|
legend_reverse = legend_rev
|
|
),
|
|
...
|
|
)
|
|
|
|
return(pl)
|
|
}
|