用ggplot对象的grid.arrange（）标题背景
我用ggplot2创建了几个简单的图，并将它们与grid.arrange() （来自package grid.extra）分组在一起，以便将这些图添加到一个图中。 我通过带参数top的grid.arrange()函数创建标题，如下所示：
library(ggplot2)
library(gridExtra)
...
tiff("Figure5.tiff",
height = 20, width = 16, units = "cm",
compression = "lzw", res = 300)
Fig5 <- grid.arrange(plot5, plot5Ran, ncol = 2,
top = textGrob("Comparison of Correlation Output",
gp = gpar(fill='snow')))
plot(Fig5)
dev.off()
然而，正如你在上面的部分屏幕截图中看到的那样，标题的背景（图形顶部的图像部分，由参数top添加，从ggplot主题获取背景，而不是像边距那样白。我试过使用参数fill但没有效果。
我怎样才能获得白色背景的标题？ 我知道使用facets会更直接，避免grid.arrange ，但在这种情况下没有意义。 我想我也可以将ggplot主题更改为白色，但在这种情况下，这不是一种选择。 谢谢
正如user20650建议的那样，这是一个打印问题。 下面的两个选项都适用
首先将图形保存为R对象和tiff文件：
tiff("Figure5X.tiff",
height = 20, width = 16, units = "cm",
compression = "lzw", res = 300)
Fig5 <- grid.arrange(plot5, plot5Ran, ncol = 2,
top = "Comparison of Correlation Output")
Fig5
dev.off()
或者，仅保存tiff文件，如user20650所示：
tiff("Figure5Y.tiff",
height = 20, width = 16, units = "cm",
compression = "lzw", res = 300)
grid.arrange(plot5, plot5Ran, ncol = 2,
top = "Comparison of Correlation Output")
dev.off()