R/base_map.R

In euctrl-pru/pruatlas: The Atlas and Utilities for PRU Maps

#' Provide base country layer for PRU maps.
#'
#' @param colour_sea colour of the sea
#' @param colour_land colour of the land
#' @param colour_border colour of the country border
#' @param colour_graticule colour of the graticule
#' @param colour_backgroud background colour
#' @param border_size thickness of the border line
#'
#' @return a ggplot2 object with world countries in LAEA projection.
#' @export
#'
#' @examples
#' \dontrun{
#' library(pruatlas)
#' # Plot a world map in LAEA projection.
#' bm <- base_map()
#' }
base_map <- function(
  colour_sea        = "#D8F4FF",
  colour_land       = "grey89",
  colour_border     = "#A9A9A9",
  colour_graticule  = "#D3D3D3",
  colour_backgroud  = "#f5f5f2",
  border_size       = 0.2
) {

  graticule <- sf::st_graticule(crs = sf::st_crs(3035))

  ggplot2::ggplot() +
    ggplot2::geom_sf(data = pruatlas::sphere_laea,  fill   = colour_sea) +
    ggplot2::geom_sf(data = pruatlas::countries50m,
                     fill   = colour_land,
                     colour = colour_border,
                     size = border_size) +
    ggplot2::geom_sf(data = graticule,    colour = colour_graticule) +
    theme_map()
}