如何让For循环迭代处理文件夹中所有文本数据文件？

AI 小北

2026-7-5

批量处理文本文件循环失效问题解决

问题描述

已有可处理单个文本文件的脚本，能完成模型拟合并输出结果。需批量处理文件夹内137个带数字标识的文本文件（如(filename)_1.txt），尝试用文件名向量+For循环读取文件，但循环仅处理第一个文件；将读文件操作移至循环内后仍无效，求实现循环逐个处理每个文件的方法。

原尝试代码

filter2 <- read_delim(files2[[i]], col_names = FALSE)

names(filter2) <- c("f","Re", "Im")

for (i in 1:length(files2) {loop with fitting and plotting}

修改后代码（仍有问题）

names(filter2) <- c("f","Re", "Im")

for (i in 1:length(files2)) {

filter2[[i]] <- read_delim( file = filter3,  col_names = FALSE)

解决方法

1. 正确生成文件名向量

先确保获取所有目标文件的完整路径，用list.files()精准匹配文件：

# 替换为你的目标文件夹路径，匹配带数字后缀的txt文件
files2 <- list.files(path = "你的文件夹绝对/相对路径", 
                     pattern = "_\\d+\\.txt$", 
                     full.names = TRUE)

2. 修正循环逻辑

把读文件、列命名、拟合绘图的完整流程都放进循环内部，每次循环处理单个文件：

# 可选：初始化列表保存每个文件的处理结果
results <- list()

for (i in seq_along(files2)) {
  # 读取当前循环对应的文件
  current_data <- read_delim(files2[i], col_names = FALSE)
  # 给数据框列命名
  names(current_data) <- c("f", "Re", "Im")
  
  # 插入你的模型拟合代码，示例：
  # model_fit <- lm(Re ~ f + Im, data = current_data)
  # 插入你的绘图代码，示例：
  # plot(current_data$f, current_data$Re, main = paste("文件", i))
  
  # 可选：把当前文件的处理结果存入列表
  results[[i]] <- list(raw_data = current_data, fit = model_fit)
}