diff --git a/R/theme-defaults.R b/R/theme-defaults.R index 7fe9742f5e..38ea2d0d92 100644 --- a/R/theme-defaults.R +++ b/R/theme-defaults.R @@ -472,7 +472,7 @@ theme_minimal <- function(base_size = 11, base_family = "", panel.background = element_blank(), panel.border = element_blank(), strip.background = element_blank(), - plot.background = element_blank(), + plot.background = element_rect(fill = paper, colour = NA), complete = TRUE ) @@ -553,13 +553,16 @@ theme_void <- function(base_size = 11, base_family = "", header_family = NULL, base_line_size = base_size / 22, base_rect_size = base_size / 22, - ink = "black", paper = "white") { + ink = "black", paper = alpha(ink, 0)) { half_line <- base_size / 2 # Only keep indispensable text: legend and plot titles t <- theme( line = element_blank(), - rect = element_blank(), + rect = element_rect( + fill = paper, colour = NA, linewidth = 0, linetype = 1, + inherit.blank = FALSE + ), polygon = element_blank(), point = element_blank(), text = element_text( @@ -591,12 +594,18 @@ theme_void <- function(base_size = 11, base_family = "", legend.box.margin = rel(0), legend.box.spacing = unit(0.2, "cm"), legend.ticks.length = rel(0.2), + legend.background = element_blank(), + legend.frame = element_blank(), + legend.box.background = element_blank(), strip.clip = "on", strip.text = element_text(size = rel(0.8)), strip.switch.pad.grid = rel(0.5), strip.switch.pad.wrap = rel(0.5), + strip.background = element_blank(), panel.ontop = FALSE, panel.spacing = NULL, + panel.background = element_blank(), + panel.border = element_blank(), plot.margin = rel(0), plot.title = element_text( size = rel(1.2), @@ -619,6 +628,7 @@ theme_void <- function(base_size = 11, base_family = "", hjust = 0.5, vjust = 0.5 ), plot.tag.position = 'topleft', + plot.background = element_rect(), complete = TRUE ) diff --git a/man/ggtheme.Rd b/man/ggtheme.Rd index 57dd519355..df733e0370 100644 --- a/man/ggtheme.Rd +++ b/man/ggtheme.Rd @@ -111,7 +111,7 @@ theme_void( base_line_size = base_size/22, base_rect_size = base_size/22, ink = "black", - paper = "white" + paper = alpha(ink, 0) ) theme_test( diff --git a/tests/testthat/_snaps/geom-polygon/open-and-closed-munched-polygons.svg b/tests/testthat/_snaps/geom-polygon/open-and-closed-munched-polygons.svg index 5080746f6c..f134915d5f 100644 --- a/tests/testthat/_snaps/geom-polygon/open-and-closed-munched-polygons.svg +++ b/tests/testthat/_snaps/geom-polygon/open-and-closed-munched-polygons.svg @@ -18,6 +18,7 @@ + diff --git a/tests/testthat/_snaps/guides/guide-custom-with-void-theme.svg b/tests/testthat/_snaps/guides/guide-custom-with-void-theme.svg index ac52f62280..12b96037a8 100644 --- a/tests/testthat/_snaps/guides/guide-custom-with-void-theme.svg +++ b/tests/testthat/_snaps/guides/guide-custom-with-void-theme.svg @@ -18,6 +18,7 @@ + diff --git a/tests/testthat/_snaps/theme/theme-minimal-large.svg b/tests/testthat/_snaps/theme/theme-minimal-large.svg index 8ec3b18625..1dc1caf61a 100644 --- a/tests/testthat/_snaps/theme/theme-minimal-large.svg +++ b/tests/testthat/_snaps/theme/theme-minimal-large.svg @@ -18,6 +18,7 @@ + diff --git a/tests/testthat/_snaps/theme/theme-minimal.svg b/tests/testthat/_snaps/theme/theme-minimal.svg index aa5fbe37d8..ce2799c95b 100644 --- a/tests/testthat/_snaps/theme/theme-minimal.svg +++ b/tests/testthat/_snaps/theme/theme-minimal.svg @@ -18,6 +18,7 @@ + diff --git a/tests/testthat/_snaps/theme/theme-void-large.svg b/tests/testthat/_snaps/theme/theme-void-large.svg index 8135cd36d3..58ac3525dd 100644 --- a/tests/testthat/_snaps/theme/theme-void-large.svg +++ b/tests/testthat/_snaps/theme/theme-void-large.svg @@ -18,6 +18,7 @@ + diff --git a/tests/testthat/_snaps/theme/theme-void.svg b/tests/testthat/_snaps/theme/theme-void.svg index b69c91ef30..e537f6bb9d 100644 --- a/tests/testthat/_snaps/theme/theme-void.svg +++ b/tests/testthat/_snaps/theme/theme-void.svg @@ -18,6 +18,7 @@ +