R/theme_pub_minimal.R

In zmorrissey/commonR: commonR

#' Custom ggplot2 theme for publication. Alternate of theme_pub() that is similar
#' to theme_minimal()
#'
#' Publication-quality theme, modeled after the Nature final artwork guidelines.
#' See https://www.nature.com/nature/for-authors/final-submission for details.
#'
#'
#' @keywords ggplot2 theme
#' @export theme_pub_minimal
#' @examples
#' ggplot(mtcars, aes(wt, mpg)) + geom_point() + theme_pub_minimal()

theme_pub_minimal <- function() {
    ## Font and text sizes (units = pt)
    tagsize <- 8
    titlesize <- 7
    subtitlesize <- 6
    axis_titlesize <- 6
    axis_textsize <- 5
    linewidth <- 0.176  # mm (= 0.5 pt)

    theme(
        ## Axes
        axis.title.x = element_text(size = axis_titlesize),
        axis.title.y = element_text(size = axis_titlesize),
        axis.text.x = element_text(
            face = "plain",
            size = axis_textsize,
            color = "black",
            margin = unit(c(0, 0, 0, 0), "mm")),
        axis.text.y = element_text(
            face = "plain",
            size = axis_textsize,
            color = "black",
            margin = unit(c(0, 0, 0, 0), "mm")),
        axis.line = element_blank(),
        axis.ticks = element_blank(),

        ## Legend
        legend.title = element_text(size = axis_titlesize),
        legend.text = element_text(
            face = "plain",
            size = axis_textsize),
        legend.box.background = element_blank(),
        legend.key = element_blank(),

        ## Title
        plot.title = element_text(
            face = "plain",
            size = titlesize,
            color = "black"),

        plot.subtitle = element_text(
            face = "plain",
            size = subtitlesize,
            color = "black"),

        plot.tag = element_text(
            face = "plain",
            size = tagsize,
            color = "black"),

        ## Caption
        plot.caption=element_text(size = axis_textsize),

        ## Facets
        strip.text.x = element_text(size = axis_titlesize, color = "black"),
        strip.text.y = element_text(size = axis_titlesize, color = "black"),
        strip.background = element_blank(),

        ## Background
        panel.background = element_blank(),

        ## Gridlines
        panel.grid.major = element_line(size = linewidth,
                                        color = "#D3D3D3")
    )
}