R语言循环保存plotweb交互图失败：生成空图求解决方案

问题分析 #

你遇到的核心问题是：vegan包的plotweb()属于基础绘图系统函数，它不会返回可直接print()的完整绘图对象——你赋值给plot_nw的只是绘图的坐标参数，而非图形本身，因此在svg设备中执行print(plot_nw)无法生成有效内容。另外还要确保输出路径Output文件夹已存在，否则会静默失败。

解决办法 #

以下两种方案都能解决问题，选其一即可：

方案1：直接在svg设备内绘制（推荐）

把plotweb()的绘图命令放在svg()打开后、dev.off()关闭前，让图形直接输出到svg设备中：

library(vegan)
library(dplyr)
library(tidyr)

# 先创建Output文件夹，避免路径不存在导致失败
dir.create("Output", recursive = TRUE, showWarnings = FALSE)

for (x in levels(test_sum$Site)) {
  # 处理数据得到交互矩阵
  web_matrix <- test_sum %>%
    filter(Site == x) %>% 
    filter(sum != 0) %>% 
    select(Sp_Pollinisateurs, Sp_Plantes, sum) %>% 
    arrange(Sp_Pollinisateurs) %>% 
    pivot_wider(names_from = Sp_Pollinisateurs,
                values_from = sum,
                values_fill = 0) %>% 
    select(where(~ any(. != 0))) %>% 
    arrange(Sp_Plantes) %>% 
    as.data.frame() %>%
    select(-Site) %>% 
    column_to_rownames(var = "Sp_Plantes")
  
  # 打开svg设备 -> 绘制图形 -> 关闭设备
  svg(paste0("Output/myplot_", x, ".svg"))
  plotweb(web_matrix, text.rot = 90, y.lim = c(-0.55, 4))
  dev.off()
}

方案2：用recordPlot()捕获图形后用ggsave保存

如果偏好使用ggsave()，可以先在当前设备绘制图形，再用recordPlot()捕获，最后保存：

library(vegan)
library(dplyr)
library(tidyr)
library(ggplot2)

dir.create("Output", recursive = TRUE, showWarnings = FALSE)

for (x in levels(test_sum$Site)) {
  web_matrix <- test_sum %>%
    filter(Site == x) %>% 
    filter(sum != 0) %>% 
    select(Sp_Pollinisateurs, Sp_Plantes, sum) %>% 
    arrange(Sp_Pollinisateurs) %>% 
    pivot_wider(names_from = Sp_Pollinisateurs,
                values_from = sum,
                values_fill = 0) %>% 
    select(where(~ any(. != 0))) %>% 
    arrange(Sp_Plantes) %>% 
    as.data.frame() %>%
    select(-Site) %>% 
    column_to_rownames(var = "Sp_Plantes")
  
  # 绘制图形并捕获
  plotweb(web_matrix, text.rot = 90, y.lim = c(-0.55, 4))
  captured_plot <- recordPlot()
  
  # 用ggsave保存捕获的图形
  ggsave(paste0("Output/myplot_", x, ".svg"), plot = captured_plot, device = "svg")
}

额外检查点 #

• 确认每个站点的web_matrix非空：如果某个站点经过filter(sum !=0)后没有数据，也会生成空图，可以在循环中加if(nrow(web_matrix) > 0)判断再绘图。
• 确保test_sum$Site的levels正确，没有空值或无效水平。

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