设置带有底线的白色背景（ggExtra + ggplot2）

Question

我想生成一个包含许多图的PDF，每页一个。这些图包含由ggExtra生成的边际分布：

library(ggplot2)
library(ggExtra)
set.seed(1)

pdf("example.pdf", width = 5, height=5, bg = "white")
for(i in 1:10){
  plot.df <- data.frame(x = rnorm(1000), y = rnorm(1000))

  p1 <- ggplot(plot.df, aes(x = x, y = y)) +
    geom_point() +
    ggtitle(i)
  p1 <- ggMarginal(p1)
  plot(p1)
}
dev.off()

但是，这些图以灰色网格背景而不是白色背景显示（见下文）。如何将所有背景变白？另外，输出PDF的开头包含空白页。如何避免它被创建？

Answer 1

您需要更改图解的theme。例如，您可以选择theme_void()，或使用theme()自己制作，然后将其添加到绘图中。

p1 <- ggplot(plot.df, aes(x = x, y = y)) +
    geom_point() +
    ggtitle(i) +
    theme_void()

---

theme_void()的示例：