在R中按列唯一值拆分数据框并为各子集命名的方法

方法1：修改原循环代码 #

你当前的循环用索引数字生成test1、test2这类名称，只需直接用List中的ID值作为变量名即可：

List <- unique(test$ID)

for (i in 1:length(List)) {
  assign(List[[i]], subset(test, ID == List[[i]]))
}

运行后，全局环境中会直接生成名为a、b、c...的Data Frame，每个对应ID的子集。

方法2：用split + list2env更简洁高效 #

R内置的split函数可直接按指定列拆分Data Frame，生成以该列唯一值命名的列表；再用list2env把列表元素转为全局环境中的独立对象，无需手动写循环：

# 按ID拆分得到命名列表
split_list <- split(test, test$ID)

# 将列表元素导出为全局环境中的变量
list2env(split_list, envir = .GlobalEnv)

执行后，a、b、c、d等变量会直接出现在全局环境中，每个都是对应ID的Data Frame子集。

注意事项 #

• 如果ID值包含特殊字符（比如空格、数字开头），直接作为变量名会报错，此时可以用make.names函数将ID转换为合法变量名后再操作。
• 不建议在全局环境中生成大量零散变量，后续管理会很麻烦。如果只是需要按ID操作子集，直接使用split生成的列表更方便，比如用lapply批量处理：lapply(split_list, function(x) summary(x))。

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