R/tidyverse.R

In pedersebastian/pederlib: Personal library

#' Title Absolute value labels
#'
#' @param breaks nbreaks
#'
#' @return breaks
#' @export
#' @examples
#' # scale_x_continuous(labels = abs_label)
#'
abs_label <- function(breaks) {
  labels <- sprintf("%i", abs(breaks))
  # make your labels here
  return(labels)
}

#' Theme Peder
#'
#' @description
#' Based on theme_minimal
#' Font is `BentonSans Regular`, and must be installed first
#' title, subtitle are centered
#'
#' @param base_size b
#' @param strip_text_size b
#' @param strip_text_margin b
#' @param subtitle_size b
#' @param subtitle_margin b
#' @param plot_title_size b
#' @param plot_title_margin b
#' @param strip_color facet-strip color
#' @param ... x
#'
#' @return theme
#' @export
theme_pedr <- function(base_size = 11,
                       strip_text_size = 12,
                       strip_text_margin = 5,
                       subtitle_size = 13,
                       subtitle_margin = 10,
                       plot_title_size = 16,
                       plot_title_margin = 10,
                       strip_color = "gray90",
                       ...) {
  ret <- ggplot2::theme_minimal(
    base_family = "BentonSans Regular",
    base_size = base_size, ...
  )
  ret$strip.text <- ggplot2::element_text(
    hjust = 0.5, size = strip_text_size,
    margin = ggplot2::margin(b = strip_text_margin),
    family = "BentonSans Regular"
  )
  ret$strip.background <- ggplot2::element_rect(
    fill = strip_color,
    color = NA,
    linewidth = NULL,
    linetype = NULL
  )
  ret$plot.subtitle <- ggplot2::element_text(
    hjust = 0.5, size = subtitle_size,
    margin = ggplot2::margin(b = subtitle_margin),
    family = "BentonSans Regular",
    color = "gray10"
  )
  ret$plot.title <- ggplot2::element_text(
    hjust = 0.5, size = plot_title_size,
    margin = ggplot2::margin(b = plot_title_margin),
    family = "BentonSans Bold"
  )

  ret
}

#############################################################################
#' Title
#'
#' @description #theme_center
#' Based on theme_minimal
#' title, subtitle are centered

#'
#' @param base_size x
#' @param strip_text_size x
#' @param strip_text_margin x
#' @param subtitle_size x
#' @param subtitle_margin x
#' @param plot_title_size x
#' @param plot_title_margin x
#' @param strip_color facet-strip color
#' @param ... x
#'
#' @return theme
#' @export
#'
#' @examples
#' library(ggplot2)
#' data(faithful)
#' faithful %>%
#'   ggplot(aes(eruptions)) +
#'   geom_histogram() +
#'   scale_x_continuous(labels = komma()) +
#'   theme_center() +
#'   labs(title = "This is a title", subtitle = "This is a subtitle")
theme_center <- function(base_size = 11,
                         strip_text_size = 12,
                         strip_text_margin = 5,
                         subtitle_size = 13,
                         subtitle_margin = 10,
                         plot_title_size = 16,
                         plot_title_margin = 10,
                         strip_color = "gray90",
                         ...) {
  ret <- ggplot2::theme_minimal(
    base_family = NULL,
    base_size = base_size, ...
  )
  ret$strip.text <- ggplot2::element_text(
    hjust = 0.5,
    size = strip_text_size,
    margin = ggplot2::margin(b = strip_text_margin),
    family = NULL
  )

  ret$strip.background <- ggplot2::element_rect(
    fill = strip_color,
    color = NA,
    linewidth = NULL,
    linetype = NULL
  )
  ret$plot.subtitle <- ggplot2::element_text(
    hjust = 0.5, size = subtitle_size,
    margin = ggplot2::margin(b = subtitle_margin),
    family = NULL,
    color = "gray10"
  )
  ret$plot.title <- ggplot2::element_text(
    hjust = 0.5, size = plot_title_size,
    margin = ggplot2::margin(b = plot_title_margin),
    family = NULL
  )

  ret
}

#########################

#' Title
#'
#' @param ... passed on to scales::comma_format
#'
#' @return scale
#' @export
#' @examples
#' library(ggplot2)
#' data(faithful)
#' faithful %>%
#'   ggplot(aes(eruptions)) +
#'   geom_histogram() +
#'   scale_x_continuous(labels = komma()) +
#'   theme_center() +
#'   labs(title = "This is a title", subtitle = "This is a subtitle")
komma <- function(...) {
  scales::comma_format(decimal.mark = ",", big.mark = ".", ...)
}

#' Title
#'
#' @param ... passed on to scales::percent_format
#'
#' @return scale
#' @export
prosent <- function(...) {
  scales::percent_format(decimal.mark = ",", big.mark = ".", ...)
}




#' Both x and y scale on log
#'
#' @param ... passed on to scale_x_log10 and scale_y_log10
#'
#' @return scales
#' @export

scale_xy_log10 <- function(...) {
  list(ggplot2::scale_x_log10(...), ggplot2::scale_y_log10(...))
}