如何在R中通过循环按ID_CODE拆分数据框为多个子数据框？

你的错误原因是temp_并未预先定义为列表，直接使用temp_[[i]]会导致R找不到该对象。要生成temp_001、temp_002这类独立数据框，可以采用以下两种方式：

方法一：用assign()函数实现循环生成独立数据框 #

assign()函数能直接在全局环境中创建指定名称的对象，完全匹配你的需求：

# 定义原始数据框
data <- data.frame(ID_CODE  = c('001', '001', '001', '002', '002', '003'),
                   Metric1 = c('0.94', '0.68', '0.8', '0.12', '0.56', '0.87'))

# 循环生成对应的数据框
for (i in unique(data$ID_CODE)) {
  # 拼接目标数据框名称：temp_ + 标识符
  df_name <- paste0("temp_", i)
  # 筛选子集并赋值到对应名称的对象
  assign(df_name, subset(data, ID_CODE == i))
}

执行后，你就能在环境中看到temp_001、temp_002、temp_003三个独立数据框，与你期望的结果一致。

方法二：推荐——将子集存储到列表中（更易管理） #

虽然生成独立数据框能满足需求，但在R中更推荐把这类同结构的子集存入一个列表，避免环境中出现大量零散对象，后续操作也更便捷：

# 按ID_CODE拆分数据框为列表
temp_list <- split(data, data$ID_CODE)

# 如果需要把列表元素转为独立数据框，可再执行循环：
for (name in names(temp_list)) {
  assign(paste0("temp_", name), temp_list[[name]])
}

split()函数能一步完成按分组拆分的操作，比手动写子集筛选更简洁高效。

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