R语言循环保存PNG文件异常：文件名混乱且第19张未正常保存

原代码核心问题 #

• 绘图逻辑颠倒：先在默认屏幕设备绘图，再打开PNG设备，导致绘制内容未写入PNG文件，空设备直接关闭引发文件名混乱、内容丢失。
• 语法错误：将dev.off()作为png()的参数传入，属于错误用法，会导致设备异常关闭。
• 文件名来源不可靠：直接使用names(Models_G)可能包含路径信息或不符合预期的名称，造成文件名混乱。
• 硬编码循环次数：用1:19而非动态获取图层数量，若文件数量变化会直接出错。

修正后的代码 #

# 读取ASC文件并构建栅格堆栈
Models <- list.files(path = "D:/Final_Projections_Global", full.names = TRUE, pattern = "\\.asc$")
Models <- lapply(Models, raster)
Models_G <- raster::stack(Models)

# 读取无南极洲的世界矢量地图
world <- readOGR(dsn = "C:/Users/DELL/OneDrive/Documents/",
                 layer = "World_Map_No_Antarctica")

# 定义渐变调色板
cl <- colorRampPalette(c("#3E49BB","#3498DB", "yellow", "orange", "red", "darkred"))

# 提取干净的文件名（去除路径和.asc后缀）
Names <- basename(Models)
Names <- tools::file_path_sans_ext(Names)

# 循环绘制并保存每个栅格图层
for (i in seq_along(Models_G)) {
    # 第一步：打开PNG输出设备
    png(filename = paste0(Names[i], ".png"),
        units = "px",
        pointsize = 8,
        bg = "white",
        width = 1400, 
        height = 913, 
        res = 300, 
        family = "Helvetica")
    
    # 第二步：在PNG设备上完成绘图
    plot(Models_G[[i]], col = cl(400))
    plot(world, add = TRUE)
    
    # 第三步：关闭设备，完成文件保存
    dev.off()
}

关键修正说明 #

• 调整绘图流程：严格遵循「打开输出设备 → 执行绘图 → 关闭设备」的顺序，确保绘制内容正确写入PNG文件。
• 修复设备关闭逻辑：将dev.off()从png()参数中移出，作为独立命令在绘图完成后执行。
• 生成规范文件名：用basename()提取原始文件名，再通过tools::file_path_sans_ext()去除.asc后缀，避免路径和多余后缀混入PNG文件名。
• 动态匹配循环次数：用seq_along(Models_G)替代硬编码的1:19，自动匹配栅格堆栈的实际图层数量，提升代码健壮性。

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