R批量读取ASCII子文件夹中40+$分隔季度文件失败，求解决方案

原代码的问题点 #

• 正则表达式错误：pattern="^DEMO.*\.txt$" 中，R字符串里的反斜杠需要双重转义，应写成\\.txt$；且你的文件名示例（如DEMO04Q1）无.txt后缀，这个正则会匹配不到目标文件，需要调整。
• 循环与lapply重复嵌套：外层用for遍历文件，内层又用lapply遍历整个文件列表，完全冗余。
• read.delim使用错误：lapply的第二个参数需为函数，直接传read.delim(sep="$")会立即执行而非延迟遍历；且未指定完整文件路径，仅用文件名R无法定位文件。
• 未保存读取结果：代码执行后未将数据存入变量，等于白读。

修正后的代码 #

方案1：用lapply读取并存储为列表 #

# 获取ASCII文件夹下符合命名规则的文件（匹配DEMO+两位年份+Q+季度格式）
demographics_files <- list.files(path = "ASCII", pattern = "^DEMO[0-9]{2}Q[1-4]$", full.names = TRUE)

# 批量读取所有文件，存储为列表，每个元素对应一个文件的数据框
demo_data_list <- lapply(demographics_files, function(file) {
  read.delim(file, sep = "$", header = TRUE) # 根据实际文件是否有表头调整header参数
})

# 可选：给列表元素命名为文件名（去掉路径）
names(demo_data_list) <- basename(demographics_files)

方案2：用for循环将数据框单独存入全局环境 #

如果你想让每个文件对应的数据框直接出现在R环境中（比如DEMO04Q1对应同名数据框），可以用这个循环：

demographics_files <- list.files(path = "ASCII", pattern = "^DEMO[0-9]{2}Q[1-4]$", full.names = TRUE)

for (file in demographics_files) {
  # 提取文件名作为数据框名称
  df_name <- basename(file)
  # 读取文件并赋值到全局环境
  assign(df_name, read.delim(file, sep = "$", header = TRUE), envir = .GlobalEnv)
}

代码说明 #

• full.names = TRUE：让list.files返回完整文件路径，避免后续手动拼接路径的麻烦。
• 正则表达式^DEMO[0-9]{2}Q[1-4]$：精准匹配你的文件名格式，确保只读取目标文件，不会误读其他无关文件。
• read.delim的header参数：文件第一行是列名就设为TRUE，否则设为FALSE，根据实际情况调整。

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