R/theme_maragra.R

In joebrew/maragra: An analysis of malaria at the Maragra sugar company, Mozambique

#' Theme for ggplots
#'
#' Add a theme to a ggplot object
#' @param base_size The base font size
#' @return A ggplot compatible theme call
#' @import ggthemes
#' @import grid
#' @export
# Borrowed from https://rpubs.com/Koundy/71792
theme_maragra <- function(base_size=14) {
  (theme_foundation(base_size=base_size)
    + theme(plot.title = element_text(#face = "bold",
                                      size = rel(1),
                                      hjust = 0.5),
            # text = element_text(),
            panel.background = element_rect(colour = NA),
            plot.background = element_rect(colour = NA),
            panel.border = element_rect(colour = NA),
            axis.title = element_text(#face = "bold",
                                      size = rel(0.75)),
            axis.title.y = element_text(angle=90,vjust =2),
            axis.title.x = element_text(vjust = -0.2),
            axis.text = element_text(size = rel(0.65)),
            axis.line = element_line(colour="black"),
            axis.ticks = element_line(),
            panel.grid.major = element_line(colour="#f0f0f0"),
            panel.grid.minor = element_blank(),
            legend.key = element_rect(colour = NA),
            legend.position = "bottom",
            legend.direction = "horizontal",
            legend.key.size= unit(0.5, "cm"),
            legend.margin = unit(0, "cm"),
            legend.title = element_text(face="italic"),
            plot.margin=unit(c(10,5,5,5),"mm"),
            strip.background=element_rect(colour="#f0f0f0",fill="#f0f0f0"),
            strip.text = element_text(face="bold") +
            theme(text=element_text(size=16))
    ))
}