如何在ggplot2中导出仅含绘图面板内容的无白边图片

残留白边的核心原因是：即便隐藏了轴刻度、轴文字等元素，ggplot2默认仍会为这些元素预留布局空间，此外导出参数设置不当也会额外增加白边，按以下步骤修改即可： #

1. 补充主题配置，清空隐藏元素的预留空间 #

在原有theme()配置中新增以下参数，消除轴元素的预留占位：

• 设置axis.ticks.length = unit(0, "pt")，清除刻度预留长度
• 设置plot.background = element_rect(fill = "black", color = NA)，画布背景和绘图区保持一致，避免边缘色差
• 设置panel.border = element_blank()，清除绘图区边框占位

修改后的完整绘图代码如下：

library(ggplot2)
p <- ggplot()+ 
  stat_function(fun = ~ -(.x-2) ^ 2 + 3, size = .5, linetype = 'dashed', color='white') + 
  scale_x_continuous(expand = c(0, 0), limits = c(0, 4)) + 
  scale_y_continuous(expand = c(0, 0), limits = c(0, 4)) + 
  theme(
    plot.margin = unit(c(0,0,0,0), "pt"),
    panel.grid.major = element_blank(),
    panel.grid.minor = element_blank(),
    panel.background = element_rect(fill = "black", colour = "black"),
    axis.text = element_blank(),
    axis.line = element_blank(),
    axis.ticks = element_blank(),
    axis.ticks.length = unit(0, "pt"),
    axis.title = element_blank(),
    plot.background = element_rect(fill = "black", color = NA),
    panel.border = element_blank()
  )

2. 导出时配置正确参数，避免额外加边 #

导出时指定和绘图区比例一致的宽高，同时设置背景色，不要使用默认的自动边距：

# 方案1：用ggsave直接导出，宽高设置为和x/y轴比例一致（此处为正方形，设为相同值即可）
ggsave("output.png", plot = p, width = 4, height = 4, dpi = 300, bg = "black")

# 方案2：如果仍有残留白边，用grid包直接绘制grob对象，完全清除多余边距
library(grid)
png("output_no_border.png", width = 4, height = 4, units = "in", res = 300, bg = "black")
grid.draw(ggplotGrob(p))
dev.off()

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