R语言中使用for循环按地块编号批量创建数据集子集的方法

嗨，我完全懂你的烦恼——手动写30行代码创建每个地块的子集实在太费时间，而自己写的for循环又总是把之前的结果覆盖掉，最后只留下最后一个地块的数据对吧？别担心，这里有几种实用的方法帮你解决这个问题：

方法一：用列表存储所有子集（推荐） #

这种方法不会污染你的全局环境，所有子集都集中在一个列表里，后续管理和调用都更方便：

# 获取所有唯一的地块编号
all_plots <- unique(light$Plot_No)
# 初始化一个空列表，用来存放所有子集
plot_subsets <- list()

# 遍历每个地块编号，生成对应子集并存入列表
for (plot_num in all_plots) {
  # 用地块编号作为列表元素的名字，方便后续查找
  plot_subsets[[as.character(plot_num)]] <- light[light$Plot_No == plot_num, ]
}

之后你可以通过plot_subsets[["1"]]或者plot_subsets$1``来访问第一个地块的子集，所有数据都规整地放在一起，再也不用担心变量名混乱啦。

方法二：直接创建独立的数据框到全局环境 #

如果你确实希望每个地块的子集都是单独的变量（比如l_plot1、l_plot2这类），可以用assign()函数来实现：

all_plots <- unique(light$Plot_No)

for (plot_num in all_plots) {
  # 拼接出对应的变量名，比如"l_plot1"
  var_name <- paste0("l_plot", plot_num)
  # 将子集赋值给这个变量，并存入全局环境
  assign(var_name, light[light$Plot_No == plot_num, ])
}

运行完这个循环后，你的全局环境里就会出现l_plot1到l_plot30这些独立的数据框了。

额外小技巧：不用循环的更简洁方法 #

其实R里有个专门的函数split()可以直接帮你完成这个任务，一行代码就能搞定：

plot_subsets <- split(light, light$Plot_No)

这个函数会自动把light数据集按Plot_No分割成列表，每个元素对应一个地块的子集，元素名就是地块编号，效率超高！

备注：内容来源于stack exchange，提问作者Kiki_Bo