ggplot转grob后导出TIFF文件出现空白，求高质量导出方法

问题根源 #

grid::grid.draw(gp)会直接将图形绘制到当前激活的绘图设备（比如RStudio的默认绘图窗口），而你将它的返回值赋值给Figure4后，这个变量并没有存储可重复调用的绘图对象。后续打开TIFF设备再调用Figure4时，没有实际的绘图内容输出，因此生成空白文件。

正确导出方案 #

方案1：在TIFF设备上下文内直接绘制 #

将grid.draw放在TIFF设备的开启与关闭代码之间，确保图形直接输出到TIFF文件：

# 假设gp是你通过原帖代码生成的图形对象
dpi <- 300 # 论文印刷建议使用300dpi分辨率
tiff("Figure4.tiff", width = 1800, height = 800, res = dpi)
grid::grid.draw(gp)
dev.off()

方案2：先捕获图形对象再导出 #

如果需要先保存图形对象，可使用grid.grabExpr捕获绘图表达式，之后在TIFF设备中绘制：

# 捕获图形对象
Figure4 <- grid::grid.grabExpr(grid::grid.draw(gp))

# 导出到TIFF
dpi <- 300
tiff("Figure4.tiff", width = 1800, height = 800, res = dpi)
grid::grid.draw(Figure4)
dev.off()

高质量TIFF优化建议 #

• 分辨率：固定为300dpi，满足学术期刊印刷要求
• 尺寸单位：用英寸更直观，比如width = 6, height = 2.67, units = "in"（和1800/300=6英寸的尺寸一致），便于匹配论文排版
• 压缩与颜色：针对印刷需求，可添加参数优化文件大小和色彩模式：

tiff("Figure4.tiff", width = 6, height = 2.67, units = "in", res = 300,
     compression = "lzw", type = "cmyk")
grid::grid.draw(gp)
dev.off()

内容的提问来源于stack exchange，提问作者Rnoobie