R/theme_Bede.R

In MBERC/MBERCr: Package of Useful R functions for MBERC University of Plymouth (you dont go here Molly)

#' A ggplot Theme Function
#'
#' This function adds a theme to ggplots
#' @param Theme used to display ggplots
#' @keywords Theme
#' @export
#' @examples
#' theme_Bede()


theme_Bede <- function(...){

  ggplot2::theme_classic()+
    ggplot2::theme(panel.grid = ggplot2::element_line(color = "#b4aea9"),
                   panel.grid.minor = ggplot2::element_blank(),
                   panel.grid.major.x = ggplot2::element_blank(),
                   plot.title.position = "plot",
                   panel.grid.major.y = ggplot2::element_blank(),
                   axis.line = ggplot2::element_line(colour = "grey50"),
                   axis.title.y = ggplot2::element_text(face="bold", angle=90),
                   axis.title.x = ggplot2::element_text(face="bold"),
                   rect = ggplot2::element_blank(),
                   panel.border = element_rect(colour = "black", fill=NA, size=1),
                   legend.text.align = 0.5,
                   legend.title.align = 0,
                   axis.title = ggplot2::element_text(size=11.5,vjust=0.5),
                   axis.text.x = ggplot2::element_text(size = 10.5,
                                                       colour = "black"),
                   axis.text.y = ggplot2::element_text(colour = "black",
                                                       size = 10.5))
}