r - 更改 grid.arrange 输出的背景颜色

Question

我正在使用grid.arrangefrom gridExtrapackage 将两个图形放在一个页面上并将其保存到 png 文件中。我喜欢更改最终生成的 png 文件的背景颜色grid.arrange。可能吗？我无法找到任何信息。

grid.arrange(p1, p2, main=textGrob("CPU Util", gp=gpar(cex=1.2, fontface="bold", col="#990000")), ncol = 1, clip=TRUE)

Answer 1

尝试将bg =参数设置为png()

library(gridExtra)
library(lattice)

png(bg = "wheat1")
    grid.arrange(xyplot(1:10~1:10, pch=16), xyplot(1:4~1:4, pch=16))
dev.off()

Answer 2

使用时ggplot2，我还发现包中的ggdraw()功能很有用，如下所示。cowplot

这是一个例子：

library(ggplot2)
library(gridExtra)

# Create two plots
p1 <- ggplot(mtcars, aes(hp, mpg)) + 
  geom_point() + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))
p2 <- ggplot(mtcars, aes(hp, drat)) + 
  geom_point() + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))

# stitch them together
g <- grid.arrange(p1, p2, nrow = 1)
# final touch
g2 <- cowplot::ggdraw(g) + 
  theme(plot.background = element_rect(fill="wheat1", color = NA))

# check the plot
plot(g2)
# save it as png
ggsave("img/plot-background.png", g2)

虽然p1并且p2已经plot.background设置了填充，但它们之间仍然存在一条细线，当使用相同的填充包裹grid.arrange时消失。cowplot::ggdraw就好像你把两块瓷砖缝在一起，然后刷上最后一层油漆。