如何用嵌套for循环创建多个数据框？解决单一生成子集问题

嗨，我来帮你搞定这个问题！你的代码之所以只生成单个子集，核心问题在于每次循环都直接覆盖了df变量——内层循环每执行一次，就会把df重新赋值成新的data.frame，之前循环生成的内容全被替换掉了，最后自然只剩最后一次循环（也就是最后一个学生的最后一门科目）的结果。

修复后的嵌套循环代码 #

我们只需要修改赋值方式，把每个子集存入列表的不同元素中，而不是直接覆盖整个列表：

X <- c("vijay","raj","joy") 
Y <- c("maths","eng","science","social","hindi","physical","sanskrit") 
df <- list()  # 初始化空列表

for (i in X){ 
  for (j in Y) { 
    # 用「学生_科目」的格式作为列表元素的名称，存入对应子集
    df[[paste(i, j, sep = "_")]] <- subset(marks, name == i & subject == j)
  } 
}

这样修改后，df会变成一个包含21个元素的列表（3名学生×7门科目），每个元素都是对应学生对应科目的分数子集，你可以通过df$vijay_maths或者df[["raj_eng"]]这样的方式直接调用对应的子集。

更简洁的R风格写法（避免嵌套循环） #

如果你想摆脱嵌套循环的繁琐，可以用expand.grid生成所有学生和科目的组合，再结合lapply来批量生成子集，更符合R的向量化编程习惯：

# 生成所有学生与科目的组合
all_combinations <- expand.grid(name = X, subject = Y, stringsAsFactors = FALSE)

# 遍历每个组合，生成对应的分数子集
df <- lapply(1:nrow(all_combinations), function(k) {
  subset(marks, 
         name == all_combinations$name[k] & 
         subject == all_combinations$subject[k])
})

# 给列表元素命名，方便后续调用
names(df) <- paste(all_combinations$name, all_combinations$subject, sep = "_")

这个写法的结果和修改后的嵌套循环完全一致，但代码更简洁易读，也更适合处理大规模的组合场景。

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