New theme_void(), completely empty

Author: jiho

NAMESPACE

@@ -409,6 +409,7 @@ export(theme_segment)
 export(theme_set)
 export(theme_text)
 export(theme_update)
+export(theme_void)
 export(update_element)
 export(update_geom_defaults)
 export(update_labels)

R/theme-defaults.r

@@ -32,6 +32,9 @@
 #' \item{\code{theme_classic}}{
 #' A classic-looking theme, with x and y axis lines and no gridlines.}
 #'
+#' \item{\code{theme_void}}{
+#' A completely empty theme.}
+#'
 #' }
 #'
 #' @examples
@@ -45,6 +48,7 @@
 #' p + theme_light()
 #' p + theme_minimal()
 #' p + theme_classic()
+#' p + theme_void()
 #'
 #' @name ggtheme
 NULL
@@ -194,3 +198,18 @@ theme_classic <- function(base_size = 12, base_family = ""){
       legend.key       = element_blank()
     )
 }
+
+#' @export
+#' @rdname ggtheme
+theme_void <- function(base_size = 12, base_family = "") {
+  theme(
+    # Use only inherited elements and make everything blank
+    line =               element_blank(),
+    rect =               element_blank(),
+    text =               element_blank(),
+    plot.margin =        unit(c(0, 0, 0, 0), "lines"),
+
+    complete = TRUE
+  )
+}
+

man/ggtheme.Rd

@@ -8,6 +8,7 @@
 \alias{theme_light}
 \alias{theme_linedraw}
 \alias{theme_minimal}
+\alias{theme_void}
 \title{ggplot2 themes}
 \usage{
 theme_grey(base_size = 12, base_family = "")
@@ -23,6 +24,8 @@ theme_light(base_size = 12, base_family = "")
 theme_minimal(base_size = 12, base_family = "")
 
 theme_classic(base_size = 12, base_family = "")
+
+theme_void(base_size = 12, base_family = "")
 }
 \arguments{
 \item{base_size}{base font size}
@@ -60,6 +63,9 @@ A minimalistic theme with no background annotations.}
 \item{\code{theme_classic}}{
 A classic-looking theme, with x and y axis lines and no gridlines.}
 
+\item{\code{theme_void}}{
+A completely empty theme.}
+
 }
 }
 \examples{
@@ -73,5 +79,6 @@ p + theme_linedraw()
 p + theme_light()
 p + theme_minimal()
 p + theme_classic()
+p + theme_void()
 }