如何用R语言实现数据集多级分组并写入层级子文件夹？

原始数据集 #

当前已实现功能 #

已成功将数据按State列分组生成对应CSV文件（如MI.csv、OH.csv），使用代码如下：

by(df, df$State, FUN=function(i) 
write.csv(i, paste0(i$State[1], ".csv"), na = "", row.names = FALSE))

待实现需求 #

针对每个State对应的分组数据，进一步按col1列拆分，将每个col1值对应的行保存到对应子文件夹下的CSV文件中。例如：

• MI分组下col1=a的行保存至~/MI/a.csv
• MI分组下col1=b的行保存至~/MI/b.csv
• OH分组下col1=c的行保存至~/OH/c.csv
• OH分组下col1=d的行保存至~/OH/d.csv

错误尝试代码 #

曾尝试以下代码变体但未成功：

by(df, df$State, FUN=function(i) 
write.csv(i, paste0(i$State[1], "~/*.csv"), na = "", row.names = FALSE))

解决方案 #

基础R实现代码 #

要实现层级拆分，需嵌套分组并确保子文件夹存在，代码如下：

# 按State外层分组遍历
by(df, df$State, function(state_group) {
  # 构建State对应的子文件夹路径并创建（不存在则自动生成）
  state_dir <- file.path("~", state_group$State[1])
  if (!dir.exists(state_dir)) dir.create(state_dir, recursive = TRUE)
  
  # 在当前State分组内，按col1内层分组保存文件
  by(state_group, state_group$col1, function(col1_group) {
    file_path <- file.path(state_dir, paste0(col1_group$col1[1], ".csv"))
    write.csv(col1_group, file_path, na = "", row.names = FALSE)
  })
})

代码说明 #

1. 子文件夹创建：用dir.create()确保每个State对应的子文件夹存在，recursive=TRUE可自动创建多级目录。
2. 嵌套分组逻辑：外层按State拆分，内层在每个State组内再按col1拆分，保证每个col1值对应独立文件。
3. 路径兼容性：使用file.path()构建路径，自动适配不同系统的路径分隔符（Windows\/类Unix/）。

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