ggplot保存为PDF时绘图边距不符合设定，如何实现精确导出？

核心偏差原因 #

• 导出PDF时同时指定了paper="a4"和自定义宽高，PDF设备会自动添加适配A4纸张的额外边距，强制将设定尺寸的图表放到A4画布中，导致自定义边距被覆盖。
• ggplot默认给axis.text、axis.title等元素内置了额外间距，这部分间距会叠加到设定的plot.margin上，隐藏轴元素时叠加间距消失，就会出现边距随轴元素设置变化的问题。

修正后可复现代码 #

library(tidyverse)

# 封装统一自定义主题，所有图表通用
custom_plot_theme <- function() {
  theme(
    plot.margin = unit(c(5,5,5,5), "mm"),
    axis.ticks = element_blank(),
    plot.background = element_rect(colour = "grey", fill = "grey"),
    # 显式设置轴元素边距为0，消除默认叠加间距
    axis.text = element_text(margin = margin(0,0,0,0)),
    axis.title = element_text(margin = margin(0,0,0,0))
  )
}

# 带轴文本、轴标题的图表
p6 = ggplot(data.frame(x=rnorm(7356,5,3), y=rnorm(7356,4,2))) +
  geom_point(aes(x=x, y=y)) +
  custom_plot_theme()

# 不带轴文本、轴标题的图表
p7 = ggplot(data.frame(x=rnorm(7356,5,3), y=rnorm(7356,4,2))) +
  geom_point(aes(x=x, y=y)) +
  custom_plot_theme() +
  theme(
    axis.text = element_blank(),
    axis.title = element_blank()
  )

# 多图导出到同一个PDF，移除paper参数，避免自动加边距
pdf("C:\\themetest2.pdf", 
    width = 6.6929134, 
    height = 7,
    colormodel = "cmyk",
    useDingbats = FALSE)
p6
p7
dev.off()

# 单图导出推荐用ggsave，无需手动控制设备开关，稳定性更高
# ggsave("p6.pdf", plot = p6, width = 6.6929134, height = 7, colormodel = "cmyk", useDingbats = FALSE)
# ggsave("p7.pdf", plot = p7, width = 6.6929134, height = 7, colormodel = "cmyk", useDingbats = FALSE)

效果说明 #

调整后无论轴元素是否显示，四边都会严格按照设定的5mm边距渲染，你可以直接基于上面的custom_plot_theme扩展你需要的全局自定义主题参数。

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