diff --git a/R/theme_reach.R b/R/theme_reach.R index 93f2278..4658bfe 100644 --- a/R/theme_reach.R +++ b/R/theme_reach.R @@ -64,63 +64,3 @@ theme_reach <- function( return(theme_reach) } - -#' @title Some REACH theme for ggplot -#' -#' @param family The font family. Default to "Leelawadee" -#' -#' @return A theme to be added to the "+" ggplot grammar -#' -#' @export -theme_reach_borders <- function(family = "Leelawadee") { - - theme_reach() + - ggplot2::theme( - panel.background = ggplot2::element_rect(colour = "white", fill = "white", size = 0.5), - strip.background = ggplot2::element_rect(linetype = "solid", colour = "#58585A", fill = "white") - ) -} - - - -#' @title Some reach more minimal theme for a ggplot histogram -#' @param family The font family. Default to "Leelawadee" -#' -#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for vertical bar charts. -#' -#' @return A theme to be added to the "+" ggplot grammar -#' -#' @export -theme_reach_hist <- function(family = "Leelawadee") { - - theme_reach() + - ggplot2::theme( - panel.background = ggplot2::element_blank(), - strip.background = ggplot2::element_blank(), - panel.border = ggplot2::element_blank() - ) -} - - -#' @title Some reach more minimal theme for a ggplot flipped histogram -#' -#' @param family The font family. Default to "Leelawadee" -#' -#' @description Give some REACH colors and fonts to a ggplot. Based on theme_bw(). To be used for horizontal bar charts. -#' -#' @return A theme to be added to the "+" ggplot grammar -#' -#' @export -theme_reach_flip_hist <- function(family = "Leelawadee") { - - theme_reach() + - ggplot2::theme( - panel.background = ggplot2::element_blank(), - strip.background = ggplot2::element_blank(), - panel.border = ggplot2::element_blank(), - axis.ticks.y = ggplot2::element_blank() - ) -} - - -