标题背景，带有ggplot对象的grid.arrange（）

我用ggplot2制作了两个简单的绘图，并用

grid.arrange（）

（来自package grid.extra）将它们分组，以将绘图合并到一个图形中。 我正在通过带有参数

top

的

grid.arrange（）

函数创建标题，如下所示：

library(ggplot2)
library(gridExtra)

tiff（“图5.tiff”，
高度=20，宽度=16，单位=“厘米”，
压缩=“lzw”，分辨率=300）
图5如用户20650所示，这是一个打印问题。
下面两个选项都有效

首先将图形保存为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()

如果您提供一些可复制的数据，我们将更容易使用它来帮助您如果您提供生成plot5和PLOT5RANAL的实际代码，
top=）
这似乎不正确…可能与您的问题无关…而且，使用合成数据（iris）我无法复制您的问题。如果您发布您的
sessionInfo
，也会有所帮助。有关提供可复制示例的更多帮助，请参阅“感谢您提供的提示”@user20650是正确的，将
plot（Fig5）
替换为
Fig5
修复了这个问题。grid.arrange（）直接绘制，不需要打印（）它，或者更糟糕的plot（）它（gtable:：plot.gtable是您看到奇怪背景的原因，显然是为了调试）
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("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()