如何在R中按年份列拆分DataFrame并批量保存为文件？

针对你的面板数据，有两种高效的批量处理方式，可替代手动逐个操作的重复劳动：

方法一：转长格式后分组导出（推荐，符合tidy数据规范） #

先将宽格式数据转换为长格式，再按年份分组拆分并导出，适合后续还要对年份做其他分析的场景：

1. 加载tidyverse工具包（你已在用dplyr，这个包包含所需函数）：

library(tidyverse)

2. 把宽格式数据转为长格式，提取年份信息：

dat_long <- dat %>%
  pivot_longer(
    cols = starts_with("x"),  # 选中所有以x开头的年份列
    names_to = "year",        # 原列名转为year变量
    values_to = "value",      # 原列值转为value变量
    names_prefix = "x"        # 去掉列名里的x前缀，得到纯年份字符串
  )

3. 按年份分组拆分，批量保存为CSV：

dat_long %>%
  group_split(year) %>%  # 按年份拆分成多个数据框的列表
  walk(function(df) {    # 遍历每个数据框
    current_year <- unique(df$year)
    # 生成文件名并保存，row.names=FALSE避免导出冗余行号
    write.csv(df, file = paste0("dat", current_year, ".csv"), row.names = FALSE)
  })

方法二：直接遍历年份列导出（更直接，无需转格式） #

如果仅需拆分导出、不想转换数据格式，可直接遍历年份列名：

1. 获取所有年份列的名称：

year_columns <- colnames(dat)[startsWith(colnames(dat), "x")]

2. 遍历每个年份列，提取对应数据并保存：

walk(year_columns, function(col) {
  current_year <- sub("x", "", col)  # 从列名中提取年份（去掉x前缀）
  # 选中country、industry和当前年份列
  subset_df <- dat %>% select(country, industry, all_of(col))
  # 导出文件
  write.csv(subset_df, file = paste0("dat", current_year, ".csv"), row.names = FALSE)
})

注意事项 #

• 导出文件默认保存在当前工作目录，可用getwd()查看路径，setwd("你的目标路径")修改保存位置；
• 若想更快导出或获得更简洁格式，可替换write.csv()为tidyverse的write_csv()；
• 文件名可按需调整，比如把paste0("dat", current_year, ".csv")改成paste0("年度数据_", current_year, ".csv")。

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