R/theme_Bede_Map.R

In BedeFfinian/Utilities.Package: Utility Functions

#' A ggplot Theme Function
#'
#' This function adds a custom theme to ggplots specifcally for Maps over large reas (Region Scales)
#' @keywords Theme
#' @export
#' @examples
#' df<- data.frame(x=rep(seq(1,10,1),10),y=rep(rnorm(10,4),10))
#' ggplot(df,aes(x=x,y=y))+geom_point()+theme_Bede_Map()


theme_Bede_Map <- function(...){

  ggplot2::theme(
    plot.background = ggplot2::element_rect(fill = "transparent", colour = NA),
    legend.key = ggplot2::element_rect(fill = "white"),
    panel.border = ggplot2::element_rect(colour = "black", fill=NA, linewidth=1),
    legend.position=c(.99,.98),
    legend.justification = c("right", "top"),
    legend.box.just = "right",
    legend.title = ggplot2::element_text(size=14),
    legend.text = ggplot2::element_text(size=12),
    panel.background = ggplot2::element_blank(), # bg of the panel
    panel.grid.major = ggplot2::element_line(linetype = "dotted",
                                             colour="grey30",
                                             linewidth=0.25),
    panel.ontop = TRUE,
    panel.grid.minor = ggplot2::element_blank(),
    axis.text.x = ggplot2::element_text(size = 14,
                                        colour = "black"),
    axis.text.y = ggplot2::element_text(colour = "black",
                                        size = 12),
    axis.title = ggplot2::element_text(colour = "black",
                                       size = 12),
    strip.background = element_rect(fill = "white",
                                    colour = "black", linewidth = rel(2)),
    ...
  )
}