Nothing
#' 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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.