theme_transparent

Author: topepo

NEWS.md

@@ -155,6 +155,8 @@ precedence between `bins` and `binwidth`. (@eliocamp, #4651)
 
 * Updated documentation for `geom_smooth()` to more clearly describe effects of the 
   `fullrange` parameter (@thoolihan, #4399).
+  
+* Added `theme_transparent()` with transparent backgrounds. 
 
 # ggplot2 3.3.6
 This is a very small release only applying an internal change to comply with 

R/theme-defaults.r

@@ -671,3 +671,34 @@ theme_all_null <- function() {
   args <- c(elements, list(complete = TRUE))
   inject(theme(!!!args))
 }
+
+#' @export
+#' @rdname ggtheme
+theme_transparent <- function(base_size = 11, base_family = "",
+                              base_line_size = base_size / 22,
+                              base_rect_size = base_size / 22) {
+  # Based on theme_bw
+  theme_grey(
+    base_size = base_size,
+    base_family = base_family,
+    base_line_size = base_line_size,
+    base_rect_size = base_rect_size
+  ) %+replace%
+    theme(
+      # white background and dark border
+      panel.background  = element_rect(fill = "transparent", colour = NA),
+      plot.background   = element_rect(fill = "transparent", colour = NA),
+      legend.background = element_rect(fill = "transparent", colour = NA),
+      legend.key        = element_rect(fill = "transparent", colour = NA),
+      panel.border      = element_rect(fill = NA, colour = "grey20"),
+      # make gridlines dark, same contrast with white as in theme_grey
+      panel.grid        = element_line(colour = "grey92"),
+      panel.grid.minor  = element_line(linewidth = rel(0.5)),
+      # contour strips to match panel contour
+      strip.background  = element_rect(fill = "grey85", colour = "grey20"),
+
+      complete = TRUE
+    )
+}
+
+