使用for循环分割数据框并生成多个子数据框的技术求助

嗨，我来帮你解决这个问题！你当前的代码没法实现“把每一列存成独立数据框”的核心原因是：循环里的赋值只是临时覆盖了i变量，并没有把每个列对应的数据框持久保存到工作环境中。下面是几种正确的实现方式：

我们需要给每个生成的数据框命名（比如和原列名保持一致），再用assign()函数把它们放到全局环境里：

df1 <- data.frame( Number = c(45,62,27,34,37,55,40), Day = c("Mon", "Tues", "Wed", "Thurs", "Fri", "Sat", "Sun"), Time = c("1pm", "4pm", "3pm", "2pm", "4pm", "1pm", "2pm"), City = c("Chicago", "New York", "LA", "Miami", "San Diego", "Austin", "Dallas"))

allNames <- names(df1) # 用names()比variable.names()在R里更常用
for (col_name in allNames) {
  # 用drop=FALSE确保提取的结果是数据框（而非向量）
  single_col_df <- df1[, col_name, drop = FALSE]
  # 将数据框赋值到全局环境，名字和原列名一致
  assign(col_name, single_col_df)
}

运行后，你就能在工作环境中看到Number、Day、Time、City这四个独立的数据框，每个都只包含原数据框的对应列。

如果不想写for循环，用lapply可以一次性生成所有数据框的列表，再批量导入到环境中：

# 生成以列名为键的列表，每个元素是对应列的数据框
col_dfs <- lapply(names(df1), function(x) df1[, x, drop = FALSE])
names(col_dfs) <- names(df1)

# 把列表中的每个数据框导入全局环境
list2env(col_dfs, envir = .GlobalEnv)

这种写法更符合R的函数式编程风格，代码更简洁易维护。

• 你写的if(any(variable.names(df1)== i))完全没必要：因为i本来就是从allNames（原数据框的列名）里遍历出来的，肯定存在于列名中。
• i <- df1[,c(i)]只是在循环内部临时修改了i的值，循环结束后i只会保留最后一次循环的结果，其他列的数据都没有被保存下来。

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