R/gg_ibp.R

In SebaStad/ggIBPplot: Provides gg_themes and scales for Fraunhofer IBP CI

#' Title
#'
#' @param n_x
#' @param n_y
#' @param limits_x
#' @param limits_y
#' @param font
#' @param x_pos_leg
#' @param y_pos_leg
#'
#' @return
#' @export
#'
#' @examples
gg_ibp <- function(n_x = 7, n_y = 5, limits_x = NULL, limits_y = NULL,
                   font = "Frutiger 45 Light",
                   leading_x = 2, leading_y = 2){
  list(
    theme_ibp(ibp_family = font) ,
    scale_x_ibp_cont(limits = limits_x, n = n_x, leading = leading_x) ,
    scale_y_ibp_cont(limits = limits_y, n = n_y, leading = leading_y) ,
    coord_ibp_cartesian()
  )

}