ggplot2保存PDF与R显示图不一致问题求助

问题原因 #

你使用的dev.print(pdf, ...)属于R基础设备函数，和ggplot2基于grid的绘图逻辑兼容性差，无法准确传递所有绘图渲染参数，导致线条粗细这类细节出现偏差。而PNG等格式能正常显示，是因为它们的渲染机制和当前绘图设备更匹配。

解决方案 #

1. 使用ggplot2专属的ggsave()函数（推荐）

这是保存ggplot绘图最可靠的方式，能完美匹配渲染参数。如果需要将两幅图合并保存，可借助gridExtra包组合：

• 安装并加载工具包：

install.packages("gridExtra")
library(gridExtra)
library(ggplot2)

• 组合绘图并保存：
  假设你的两幅图对象为p1和p2：

# 组合两幅图（可调整ncol/nrow设置布局）
combined_plot <- grid.arrange(p1, p2, ncol = 2)
# 保存为PDF，可自定义尺寸和分辨率
ggsave("Viral_load_methods.pdf", combined_plot, width = 10, height = 6, dpi = 300)

2. 改用基础PDF设备从头渲染

如果不想用ggsave，可直接打开PDF设备后重新绘制图形，避免复制现有设备的偏差：

# 打开PDF设备，设置尺寸
pdf("Viral_load_methods.pdf", width = 10, height = 6)
# 显式打印ggplot对象（脚本中必须用print触发渲染）
print(p1)
print(p2)
# 关闭设备
dev.off()

3. 显式指定线条粗细参数

为避免不同设备的默认渲染差异，在绘图代码中明确设置线条尺寸：

• 误差线示例：

p1 <- ggplot(your_data, aes(x = group, y = value)) +
  geom_point() +
  # 显式设置误差线粗细
  geom_errorbar(aes(ymin = value - se, ymax = value + se), size = 0.8)

• 箱线图示例：

p2 <- ggplot(your_data2, aes(x = category, y = value)) +
  # 显式设置箱线图线条粗细
  geom_boxplot(size = 0.5)

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