我来帮你把手动逐个赋值的操作改成高效的循环实现，用R语言的话可以按以下步骤来做：

1. 先整理需要处理的年份列表 #

首先把你所有需要拆分的年份整理成一个向量，涵盖1986-1995的连续年份，以及1997-2015每隔一年的年份：

# 生成目标年份向量
target_years <- c(1986:1995, seq(1997, 2015, by = 2))

2. 循环批量生成子数据集 #

接下来用for循环遍历每个年份，自动从变量名列表中提取对应年份的变量，再从完整数据集中筛选出这些变量，最后赋值给对应的nameXXXX命名的数据集：

# 假设你的完整数据集名为full_dataset，替换成你实际的数据集名称
for (year in target_years) {
  # 构造var_name_list中对应年份的列名（比如X1986）
  var_col_name <- paste0("X", year)
  # 获取该年份对应的变量名列表
  year_vars <- var_name_list[[var_col_name]]
  
  # 从完整数据集中筛选变量，生成子数据集
  # drop=FALSE确保即使只有一个变量，结果依然是数据框格式
  assign(paste0("name", year), full_dataset[, year_vars, drop = FALSE])
}

关键细节解释 #

• paste0("X", year)：用来匹配你var_name_list里的列名格式（比如X1986、X1987），如果你的列名格式不同，记得调整这部分。
• assign()函数：可以动态创建并赋值变量，这里就是把生成的子数据集命名为name1986、name1987这类格式。
• drop=FALSE：避免当某个年份只有一个变量时，筛选结果变成向量，保证输出始终是数据框。

可选的容错处理 #

如果担心某些年份的变量名列表可能为空或者不存在，可以在循环里加个判断，避免报错：

for (year in target_years) {
  var_col_name <- paste0("X", year)
  if (!var_col_name %in% colnames(var_name_list)) {
    warning(paste("年份", year, "对应的变量名列不存在，跳过处理"))
    next
  }
  
  year_vars <- var_name_list[[var_col_name]]
  if (length(year_vars) == 0) {
    warning(paste("年份", year, "没有对应的变量名，跳过处理"))
    next
  }
  
  assign(paste0("name", year), full_dataset[, year_vars, drop = FALSE])
}

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