在R语言中如何将大Dataframe按固定两列加可变第三列拆分多个小数据框？

基于tidyverse实现（适配你当前使用的select函数写法） #

library(tidyverse)
# 提取除前两列外的所有目标变量名
target_vars <- colnames(BIGdf)[-c(1,2)]
# 批量生成所有小数据框，统一存储在列表中
df_list <- map(target_vars, ~select(BIGdf, ID, Year, all_of(.x)))
# 按你使用的命名规则给每个小数据框命名
names(df_list) <- paste0("newDF", seq_along(target_vars))
# 可选步骤：直接将所有小数据框加载到全局环境，无需手动逐个赋值
list2env(df_list, envir = .GlobalEnv)

运行完成后即可直接调用newDF1到newDF8，和你手动逐行编写代码生成的效果完全一致，后续如果剩余变量数量有变动也不需要修改核心逻辑。

基于base R实现（无需加载第三方包） #

target_vars <- colnames(BIGdf)[-c(1,2)]
df_list <- lapply(target_vars, function(x) BIGdf[, c("ID", "Year", x)])
names(df_list) <- paste0("newDF", seq_along(target_vars))
list2env(df_list, envir = .GlobalEnv)

两种实现方式效果完全一致，都可以免去重复编写相似代码的操作。

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