R/theme_publication.R

In d3b-center/annoFuse: annoFuse: an R Package to annotate, prioritize, and interactively explore putative oncogenic RNA fusions

#' theme_publication for plots

#' Publication quality images for summary plots
#'
#' @param base_size size of font for plot default (defaults to 12)
#' @param base_family font to be used default (defaults to "Helvetica")
#'
#' @return An object of class \code{\link{theme}} for styling the plots.
#'
#' @export
#'
#' @examples
#' library("ggplot2")
#' p <- ggplot(cars, aes(speed, dist)) +
#'   geom_point()
#' p
#' p + theme_publication(base_size = 24)
theme_publication <- function(base_size = 12,
                              base_family = "Helvetica") {
  (theme_foundation(base_size = base_size, base_family = base_family) +
    theme(
      plot.title = element_text(
        face = "bold",
        size = rel(1), hjust = 0.5
      ),
      text = element_text(family = "Helvetica"),
      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, size = rel(0.75)),
      axis.title.x = element_text(size = rel(0.75)),
      axis.text.x = element_text(size = rel(0.75), color = "black", face = "bold", hjust = 1),
      axis.text.y = element_text(size = rel(0.75), color = "black", face = "bold", hjust = 1),
      axis.line = element_line(colour = "black", size = rel(0.75)),
      axis.ticks = element_line(),
      panel.grid.major = element_line(colour = "#f0f0f0"),
      panel.grid.minor = element_blank(),
      legend.text = element_text(size = rel(0.75)),
      legend.key = element_rect(colour = NA),
      legend.position = "right",
      legend.direction = "vertical",
      legend.key.size = unit(0.75, "mm"),
      legend.spacing = unit(0.1, "mm"),
      legend.title = element_text(family = "Helvetica", face = "italic", size = rel(0.75)),
      plot.margin = unit(c(10, 10, 1, 10), "mm"),
      strip.background = element_rect(colour = "#f0f0f0", fill = "#f0f0f0"),
      strip.text = element_text(face = "bold")
    ))
}