R/theme_clean.R

In nbommakanti/vfplot:

#' Theme for clean plots
#' Use for 24-2 heatmaps, histograms, etc.
#'
#' @return NULL
#' @import ggplot2
#' @export
#'
#' @examples
#' p + theme_clean()
theme_clean <- function (base_family = "Helvetica", base_size = 14,
                         base_line_size = base_size / 22,
                         base_rect_size = base_size / 22,
                         ...) {

    # Define half line for margins used below
    half_line <- base_size / 2

    theme_classic(
        base_family = base_family,
        base_size = base_size,
        base_line_size = base_line_size,
        base_rect_size = base_rect_size
    ) %+replace%
        theme(
            # Large title and smaller subtitle
            plot.title = element_text(size = 18,
                                      face = "bold",
                                      hjust = 0,
                                      margin = margin(b = half_line)),
            plot.subtitle = element_text(size = 12,
                                         hjust = 0,
                                         margin = margin(b = half_line)),

            # Hide y axis line and ticks
            axis.line.y = element_blank(),
            axis.ticks.y = element_blank(),

            # Add dashed y-axis line
            panel.grid.major.y = element_line(size = 0.2,
                                              linetype = 3,
                                              color = colorscale_columbia["lightgray"]),

            # Allow for other parameters to be passed
            ...
        )
}