使用Base R循环导入多文件为独立数据框并命名的问题

原代码问题分析 #

1. 第一个嵌套循环中，每次循环都用完整的subject和activity向量生成file_paths和variable_name，最终这两个变量是长度为12的向量，但循环逻辑没有实现一对一的配对关联。
2. 后续的双层循环会将每个文件路径都赋值给所有变量名，导致每个变量被重复赋值12次，最终所有数据框都被最后一个文件的数据覆盖。

修正方案（Base R） #

步骤1：生成正确的文件路径与变量名配对

先通过expand.grid生成所有subject和activity的组合，再基于组合生成对应的路径和变量名：

# 生成所有subject（1-3）和activity（1-4）的组合
subj_act_pairs <- expand.grid(subject = 1:3, activity = 1:4)

# 生成每个组合对应的文件路径
file_paths <- with(subj_act_pairs, 
                   paste0("Data-Assignment1/Subj", subject, "/subj", subject, "_act", activity, ".txt"))

# 生成每个组合对应的简化变量名
variable_names <- with(subj_act_pairs, 
                       paste0("subj", subject, "_act", activity))

步骤2：一对一读取文件并赋值

用单循环按索引配对处理，确保每个变量名对应正确的文件：

# 循环处理每一组路径和变量名
for (idx in seq_along(variable_names)) {
  # 读取当前文件
  df <- read.csv(file_paths[idx], header = FALSE)
  # 将数据框赋值给对应的变量名
  assign(variable_names[idx], df)
}

替代方案：用mapply简化代码

Base R的mapply可以直接对两个向量的元素配对处理，代码更简洁：

mapply(function(file_path, var_name) {
  assign(var_name, read.csv(file_path, header = FALSE), envir = .GlobalEnv)
}, file_paths, variable_names)

注意事项 #

• expand.grid会生成所有可能的组合，确保不会遗漏任何文件；
• seq_along(variable_names)保证循环次数与文件数量一致，避免索引越界；
• envir = .GlobalEnv确保assign将变量创建在全局环境中，方便后续调用。

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