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

Add wrapping to x discrete labels

Browse source
This commit is contained in:
gnoblet 2022-12-21 12:43:32 -05:00
parent 6ff42bac73
commit 519c9c62a3
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
R/bar.R
View file

@ -6,6 +6,7 @@
#' @param group Some grouping categorical column, e.g. administrative areas or population groups. #' @param group Some grouping categorical column, e.g. administrative areas or population groups.
#' @param flip TRUE or FALSE. Default to TRUE or horizontal bar plot. #' @param flip TRUE or FALSE. Default to TRUE or horizontal bar plot.
#' @param percent TRUE or FALSE. Should the x-labels (and text labels if present) be displayed as percentages? Default to TRUE. #' @param percent TRUE or FALSE. Should the x-labels (and text labels if present) be displayed as percentages? Default to TRUE.
#' @param wrap Should x-labels be wrapped? Number of characters.
#' @param position Should the chart be stacked? Default to "dodge". Can take "dodge" and "stack". #' @param position Should the chart be stacked? Default to "dodge". Can take "dodge" and "stack".
#' @param alpha Fill transparency. #' @param alpha Fill transparency.
#' @param x_title The x scale title. Default to NULL. #' @param x_title The x scale title. Default to NULL.
@ -21,7 +22,7 @@
#' @return A bar chart #' @return A bar chart
#' #'
#' @export #' @export
bar <- function(df, x, y, group = NULL, flip = TRUE, percent = TRUE, position = "dodge", alpha = 1, x_title = NULL, y_title = NULL, group_title = NULL, title = NULL, subtitle = NULL, caption = NULL, add_text = FALSE, add_text_suffix = "", theme = theme_reach()){ bar <- function(df, x, y, group = NULL, flip = TRUE, percent = TRUE, wrap = NULL, position = "dodge", alpha = 1, x_title = NULL, y_title = NULL, group_title = NULL, title = NULL, subtitle = NULL, caption = NULL, add_text = FALSE, add_text_suffix = "", theme = theme_reach()){
# To do : # To do :
# - automate bar width and text size, or at least give the flexibility and still center text # - automate bar width and text size, or at least give the flexibility and still center text
@ -88,6 +89,10 @@ bar <- function(df, x, y, group = NULL, flip = TRUE, percent = TRUE, position =
g <- g + ggplot2::scale_y_continuous(expand = c(0.01, 0.1)) g <- g + ggplot2::scale_y_continuous(expand = c(0.01, 0.1))
} }
if (!is.null(wrap)) {
g <- g + ggplot2::scale_x_discrete(labels = scales::label_wrap(wrap))
}
# Because a text legend should always be horizontal, especially for an horizontal bar graph # Because a text legend should always be horizontal, especially for an horizontal bar graph
if (flip){ if (flip){
g <- g + ggplot2::coord_flip() g <- g + ggplot2::coord_flip()