R/theme_karl.R

In kbroman/broman: Karl Broman's R Code

#' Karl's ggplot2 theme
#'
#' Karl's ggplot2 theme: black border and no ticks
#'
#' @param base_size Base font size
#' @param base_family Base font family
#' @param ... Passed to [ggplot2::theme()]
#'
#' @return An object as returned by [ggplot2::theme()]
#'
#'
#' @examples
#' library(ggplot2)
#' mtcars$cyl <- factor(mtcars$cyl)
#' ggplot(mtcars, aes(y=mpg, x=disp, color=cyl)) +
#'     geom_point() + theme_karl()
#'
#' @seealso [ggplot2::theme()]
#'
#' @export
theme_karl <-
    function(base_size = 12, base_family = "", ...)
{
    ggplot2::"%+replace%"(
        ggplot2::theme_grey(base_size = base_size, base_family = base_family) ,

        ggplot2::theme(axis.ticks.length=grid::unit(0, "cm"),
                       panel.border=ggplot2::element_rect(fill=NA, color="black"),
                       strip.background=ggplot2::element_rect(fill="gray90", color="black"),
                       ...)
        )
}

#' @rdname theme_karl
#' @export
karl_theme <- theme_karl