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 @@
+