R/03-theme_gnr.R

In nutriverse/gnr: R Companion to the Global Nutrition Report

#' 
#' Global Nutrition Report ggplot theme
#'
#' @param base_size Base font size
#' @param base_family Base font family
#' @return A ggplot theme
#'
#' @examples
#' # Apply theme
#' theme_gnr()
#'
#' @export
#'

theme_gnr <- function (base_size = 11, base_family = ""){
  half_line <- base_size/2
  ggplot2::theme(
    line = ggplot2::element_line(colour = "black",
                                 size = 0.5,
                                 linetype = 1,
                                 lineend = "butt"),
    rect = ggplot2::element_rect(fill = "white",
                                 colour = "black",
                                 size = 0.5,
                                 linetype = 1),
    text = ggplot2::element_text(family = base_family,
                                 face = "plain",
                                 colour = "black",
                                 size = base_size,
                                 lineheight = 0.9,
                                 hjust = 0.5,
                                 vjust = 0.5,
                                 angle = 0,
                                 margin = ggplot2::margin(),
                                 debug = FALSE),

    axis.line = ggplot2::element_blank(),
    axis.text = ggplot2::element_text(size = ggplot2::rel(0.8),
                                      colour = "grey30"),
    axis.text.x = ggplot2::element_text(margin = ggplot2::margin(t = 0.8 * half_line / 2),
                                        vjust = 1),
    axis.text.y = ggplot2::element_text(margin = ggplot2::margin(r = 0.8 * half_line / 2),
                                        hjust = 1),
    axis.ticks = ggplot2::element_line(colour = "grey20"),
    axis.ticks.length = ggplot2::unit(half_line / 2, "pt"),
    axis.title.x = ggplot2::element_text(margin = ggplot2::margin(t = 0.8 * half_line,
                                                                  b = 0.8 * half_line / 2)),
    axis.title.y = ggplot2::element_text(angle = 90,
                                         margin = ggplot2::margin(r = 0.8 * half_line,
                                         l = 0.8 * half_line / 2)),

    legend.background = ggplot2::element_rect(colour = NA),
    legend.margin = ggplot2::unit(0.2, "cm"),
    legend.key = ggplot2::element_rect(fill = "grey95",
                                       colour = "white"),
    legend.key.size = ggplot2::unit(1.2, "lines"),
    legend.key.height = NULL,
    legend.key.width = NULL,
    legend.text = ggplot2::element_text(size = ggplot2::rel(0.8)),
    legend.text.align = NULL,
    legend.title = ggplot2::element_text(hjust = 0),
    legend.title.align = NULL,
    legend.position = "right",
    legend.direction = NULL,
    legend.justification = "center",
    legend.box = NULL,

    panel.background = ggplot2::element_rect(fill = "grey92", colour = NA),
    panel.border = ggplot2::element_blank(),
    panel.grid.major = ggplot2::element_line(colour = "white"),
    panel.grid.minor = ggplot2::element_line(colour = "white",
                                             size = 0.25),
    panel.margin = ggplot2::unit(half_line, "pt"),
    panel.margin.x = NULL,
    panel.margin.y = NULL,
    panel.ontop = FALSE,

    strip.background = ggplot2::element_rect(fill = "grey85",
                                             colour = NA),
    strip.text = ggplot2::element_text(colour = "grey10",
                                       size = ggplot2::rel(0.8)),
    strip.text.x = ggplot2::element_text(margin = ggplot2::margin(t = half_line,
                                         b = half_line)),
    strip.text.y = ggplot2::element_text(angle = -90,
                                         margin = ggplot2::margin(l = half_line,
                                         r = half_line)),
    strip.switch.pad.grid = ggplot2::unit(0.1, "cm"),
    strip.switch.pad.wrap = ggplot2::unit(0.1, "cm"),

    plot.background = ggplot2::element_rect(colour = "white"),
    plot.title = ggplot2::element_text(size = ggplot2::rel(1.2),
                                       margin = ggplot2::margin(b = half_line * 1.2)),
    plot.margin = ggplot2::margin(half_line, half_line, half_line, half_line),
    complete = TRUE)
}