如何使用ggsave将par(mfrow)生成的多面板绘图保存为单个SVG对象

ggsave是ggplot2包专属的导出函数，仅支持保存ggplot2生成的图形对象，你使用base R基础绘图系统配合par(mfrow)生成的多面板图不属于ggplot对象，因此无法用ggsave直接导出。

方案1：适配现有base绘图代码的导出方法 #

直接使用R原生的图形设备接口导出，不需要修改原有绘图逻辑：

# 启动输出设备，可按需替换为pdf()、jpeg()、tiff()等
# 参数可自定义分辨率、尺寸
png(filename = "三直方图多面板.png", width = 1200, height = 500, res = 150)

# 运行你的原有绘图代码
par(mfrow = c(1,3), mar = c(10, 5, 5, 3), xpd = TRUE) 
hist(x = rnorm(100), col = "skyblue", main = "X")
hist(x = rnorm(50), col = "green", main = "Y")
legend("bottom", c("Blue", "Green", "Purple"),
        title = "Sample Data", horiz = TRUE, inset = c(0, -0.4),
        col = c("skyblue", "green", "purple"), 
        pch = rep(15,3), # 原代码此处为rep(15,2)，3个图例项需对应3个点样式，已修正
        bty = "n", pt.cex = 1.5, text.col = "black")
hist(x = rnorm(75), col = "purple", main = "Z")

# 关闭设备完成导出，必须执行此步否则导出文件会损坏
dev.off()

方案2：ggplot2生态多面板绘图方案 #

如果习惯使用ggplot2和ggsave的工作流，可选择以下两种实现方式：

方法2.1 分面实现 #

将数据整理为长格式后用facet_wrap/facet_grid生成分面图，直接用ggsave导出：

library(ggplot2)
# 构造长格式数据集
df <- data.frame(
  value = c(rnorm(100), rnorm(50), rnorm(75)),
  group = rep(c("X", "Y", "Z"), c(100, 50, 75))
)

# 生成分面图
p <- ggplot(df, aes(x = value)) +
  geom_histogram(aes(fill = group), color = "black", bins = 10) +
  facet_wrap(~group, nrow = 1) +
  scale_fill_manual(values = c("skyblue", "green", "purple"), name = "Sample Data") +
  theme(legend.position = "bottom")

# 用ggsave导出
ggsave("ggplot分面多面板.png", p, width = 10, height = 5, dpi = 150)

方法2.2 patchwork拼接独立ggplot对象 #

如果三个图是独立绘制的ggplot对象，用patchwork包拼接更灵活：

library(ggplot2)
library(patchwork)

# 单独生成三个独立图形
p1 <- ggplot(data.frame(value = rnorm(100)), aes(x = value)) +
  geom_histogram(fill = "skyblue", color = "black", bins = 10) + ggtitle("X")
p2 <- ggplot(data.frame(value = rnorm(50)), aes(x = value)) +
  geom_histogram(fill = "green", color = "black", bins = 10) + ggtitle("Y")
p3 <- ggplot(data.frame(value = rnorm(75)), aes(x = value)) +
  geom_histogram(fill = "purple", color = "black", bins = 10) + ggtitle("Z")

# 横向拼接为多面板图
p_all <- p1 + p2 + p3 + 
  plot_layout(nrow = 1) +
  plot_annotation(theme = theme(legend.position = "bottom"))

# 导出
ggsave("patchwork拼接多面板.png", p_all, width = 12, height = 5, dpi = 150)

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