gnoblet/visualizeR
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Two horizontal bar chart functions

Browse source
This commit is contained in:
gnoblet 2022-05-08 18:00:14 -04:00
parent db3380538a
commit a9afe01160
1 changed files with 136 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

136
R/hbar.R Normal file
View file

@ -0,0 +1,136 @@
#' @title Simple horizontal bar chart
#'
#' @description with nice percentage x labels
#'
#' @param .tbl Some data
#' @param x Some numeric column on the x scale
#' @param y Some column on the y scale
#' @param group Some grouping categorical column, e.g. administrative areas
#' @param initiative Either "reach" or "agora" or "impact" for the color palette
#' @param x_title The x scale title. Default to empty string
#' @param y_title The y scale title. Default to empty string
#' @param group_title The group legend title. Defaut to NULL
#' @param font_family The font family. Default to "Leelawadee"
#' @param stack Should the chart be stacked? Default to "FALSE" (dodge)
#' @param reverse Boolean indicating whether the palette should be reversed
#' @param ... Other arguments to be passed to "simplevis::gg_hbar" or "simplevis:gg_hbar_col"
#'
#' @return A horizontal bar chart
#'
#' @export
hbar_percent <- function(.tbl, x, y, group = NULL, initiative = "reach", x_title = "", y_title = "", group_title = NULL, font_family = "Leelawadee", stack = FALSE, ...){
if_vec_not_in_stop(initiative, c("reach", "agora", "impact"), "initiative")
if (initiative == "reach") main_col <- cols_reach("main_grey")
if (initiative == "agora") main_col <- cols_agora("main_bordeaux")
if (initiative == "impact") rlang::abort("IMPACT colors are under development")
if (is.null(group)) {
hbar <- data |>
simplevis::gg_hbar(
x_var = {{ x }},
y_var = {{ y }},
title = title,
theme = gg_theme(font = font, pal_title = main_col),
x_title = x_title,
y_title = y_title,
alpha_fill = 1,
pal = main_col,
x_labels = scales::percent,
stack = stack,
...)
} else {
group_name <- rlang::as_name(rlang::enquo(group))
if_not_in_stop(.tbl, group_name)
hbar <- data |>
simplevis::gg_hbar_col(
x_var = {{ x }},
y_var = {{ y }},
col_var = {{ group }},
title = title,
theme = gg_theme(font = font, pal_title = main_col),
x_title = x_title,
y_title = y_title,
col_title = col_title,
alpha_fill = 1,
pal = main_col,
x_labels = scales::percent,
stack = stack,
...)
}
return(hbar)
}
#' @title Simple horizontal bar chart
#'
#' @description without any change to the x scale
#'
#' @param .tbl Some data
#' @param x Some numeric column on the x scale
#' @param y Some column on the y scale
#' @param group Some grouping categorical column, e.g. administrative areas
#' @param initiative Either "reach" or "agora" or "impact" for the color palette
#' @param x_title The x scale title. Default to empty string
#' @param y_title The y scale title. Default to empty string
#' @param group_title The group legend title. Defaut to NULL
#' @param font_family The font family. Default to "Leelawadee"
#' @param stack Should the chart be stacked? Default to "FALSE" (dodge)
#' @param reverse Boolean indicating whether the palette should be reversed
#' @param ... Other arguments to be passed to "simplevis::gg_hbar" or "simplevis:gg_hbar_col"
#'
#' @return A horizontal bar chart
#'
#' @export
hbar <- function(.tbl, x, y, group = NULL, initiative = "reach", x_title = "", y_title = "", group_title = NULL, font_family = "Leelawadee", stack = FALSE, ...){
if_vec_not_in_stop(initiative, c("reach", "agora", "impact"), "initiative")
if (initiative == "reach") main_col <- cols_reach("main_grey")
if (initiative == "agora") main_col <- cols_agora("main_bordeaux")
if (initiative == "impact") rlang::abort("IMPACT colors are under development")
if (is.null(group)) {
hbar <- data |>
simplevis::gg_hbar(
x_var = {{ x }},
y_var = {{ y }},
title = title,
theme = gg_theme(font = font, pal_title = main_col),
x_title = x_title,
y_title = y_title,
alpha_fill = 1,
pal = main_col,
stack = stack,
...)
} else {
group_name <- rlang::as_name(rlang::enquo(group))
if_not_in_stop(.tbl, group_name)
hbar <- data |>
simplevis::gg_hbar_col(
x_var = {{ x }},
y_var = {{ y }},
col_var = {{ group }},
title = title,
theme = gg_theme(font = font, pal_title = main_col),
x_title = x_title,
y_title = y_title,
col_title = col_title,
alpha_fill = 1,
pal = main_col,
stack = stack,
...)
}
return(hbar)
}