如何在R函数中将多个Venn图绘制到单个PNG文件中

你遇到的核心问题是VennDiagram基于grid绘图系统，而你使用的par(mfrow)是base绘图系统的布局参数，两者不兼容，所以布局设置完全无效，导致所有图重叠在同一位置。另外grid.newpage()会清空整个grid绘图区域，在函数内调用会导致之前的图被清除，最终只留下空白或最后一个图。

方案一：使用grid包的Viewport手动布局（无需修改函数返回值） #

这种方法直接在grid系统中创建布局，将每个韦恩图绘制到指定的子区域，完全不影响原函数的返回逻辑。

修改后的完整代码： #

library(VennDiagram)
library(grid)

plot_Venn <- function(data) {
  venn.plot <- venn.diagram(data, filename = NULL, imagetype = "png")
  grid.draw(venn.plot)
  return("yay")
}

data.list <- list(list(A = 1:150, B = 121:170),
                  list(A = 3:50,B = 45:55),
                  list(A = 1:10, B = 8:400),
                  list(A = 15:109, B = 8:140),
                  list(A = 40:80, B = 8:55),
                  list(A = 1:100, B = 80:200))

# 打开PNG设备，可根据需要调整宽高
png("testmin.png", width = 800, height = 600)
# 初始化grid页面并创建2行3列的布局
grid.newpage()
pushViewport(viewport(layout = grid.layout(2, 3)))

# 循环将每个韦恩图绘制到对应格子
for (i in seq_along(data.list)) {
  # 计算当前图所在的行和列
  row_num <- ceiling(i / 3)
  col_num <- ifelse(i %% 3 == 0, 3, i %% 3)
  # 切换到当前子区域的viewport
  pushViewport(viewport(layout.pos.row = row_num, layout.pos.col = col_num))
  # 调用原函数绘图
  plot_Venn(data.list[[i]])
  # 退出当前子viewport，避免影响后续绘图
  popViewport()
}

# 退出总布局viewport
popViewport()
dev.off()

代码说明： #

• grid.layout(2, 3)创建一个2行3列的网格布局。
• 循环中通过layout.pos.row和layout.pos.col指定每个图的位置，确保每个图绘制到独立的子区域。
• 全程使用grid系统的viewport管理布局，完全适配VennDiagram的绘图逻辑，且不需要修改原函数的返回值。

方案二：收集绘图对象后统一布局（需小幅调整函数） #

如果你可以小幅调整函数，让它同时返回需要的内容和绘图对象，也可以用gridExtra包的grid.arrange快速实现布局：

修改后的代码： #

library(VennDiagram)
library(gridExtra)

plot_Venn <- function(data) {
  venn.plot <- venn.diagram(data, filename = NULL, imagetype = "png")
  # 同时返回业务结果和绘图对象
  return(list(result = "yay", plot_obj = venn.plot))
}

data.list <- list(list(A = 1:150, B = 121:170),
                  list(A = 3:50,B = 45:55),
                  list(A = 1:10, B = 8:400),
                  list(A = 15:109, B = 8:140),
                  list(A = 40:80, B = 8:55),
                  list(A = 1:100, B = 80:200))

# 批量生成结果和绘图对象
outputs <- lapply(data.list, plot_Venn)
# 提取所有绘图对象
plot_list <- lapply(outputs, function(x) x$plot_obj)
# 提取业务结果（按需使用）
results <- lapply(outputs, function(x) x$result)

# 打开PNG设备并布局绘图
png("testmin.png", width = 800, height = 600)
grid.arrange(grobs = plot_list, nrow = 2, ncol = 3)
dev.off()

代码说明： #

• 函数返回一个列表，同时包含业务结果和绘图对象，既满足你的返回需求，又能收集绘图对象进行统一布局。
• grid.arrange可以快速将多个grid绘图对象按指定行列数排列，代码更简洁。

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