求助：如何在R中基于银行数据集创建多层嵌套文件夹

用户需求 #

• 基于数据框中10个不同银行名称，创建嵌套文件夹结构：
  1. 顶层：以每个银行名称命名的文件夹
  2. 中层：每个银行文件夹内创建3个Level文件夹（_Lev1、_Lev2、_Lev3）
  3. 底层：每个Level文件夹内创建4个Grade文件夹（_G1、_G2、_G3、_G4）
• 目前能单独完成各步骤，但无法生成嵌套结构，需要整合代码实现层级文件夹。

用户提供的原始代码（问题点：未实现嵌套） #

Banks_name = paste0('BankName_', 1:10)
Banks_ID = paste0('ID_', 1:10)
df = data.frame(Banks_name, Banks_ID)

# 用于完成任务1的代码：
list_Banks = split(df1, df1$BankName)
Map(write.xlsx, list_Banks, paste0(names(list_Banks), 'Bank_.xlsx'))

# 用于完成任务2的代码：
Levels <- c("_G1","_G2","_G3")
for (j in seq_along(Levels)){
  folder<-dir.create(paste0("~/Library/CloudStorage/Dropbox/Levels",Levels[j]))}

# 用于完成任务3的代码：
Grades <- c("_G1","_G2","_G3")
for (j in seq_along(Grades)){
  folder<-dir.create(paste0("~/Library/CloudStorage/Dropbox/Grades",Grades[j]))}

整合后的实现代码 #

# 1. 准备数据
Banks_name = paste0('BankName_', 1:10)
Banks_ID = paste0('ID_', 1:10)
df = data.frame(Banks_name, Banks_ID)

# 2. 设置根目录（替换为你的实际目标路径）
root_dir <- "~/Library/CloudStorage/Dropbox"

# 3. 定义层级文件夹名称
levels <- c("_Lev1", "_Lev2", "_Lev3")
grades <- c("_G1", "_G2", "_G3", "_G4")

# 4. 逐层创建嵌套文件夹
for (bank in df$Banks_name) {
  # 创建银行顶层文件夹
  bank_dir <- file.path(root_dir, bank)
  dir.create(bank_dir, showWarnings = FALSE)
  
  # 为当前银行创建Level子文件夹
  for (lev in levels) {
    lev_dir <- file.path(bank_dir, lev)
    dir.create(lev_dir, showWarnings = FALSE)
    
    # 为当前Level创建Grade子文件夹
    for (grade in grades) {
      grade_dir <- file.path(lev_dir, grade)
      dir.create(grade_dir, showWarnings = FALSE)
    }
  }
  
  # 可选：导出当前银行的Excel文件到对应文件夹
  bank_data <- subset(df, Banks_name == bank)
  write.xlsx(bank_data, file.path(bank_dir, paste0(bank, ".xlsx")))
}

关键说明 #

• 用file.path()拼接路径：自动适配Windows/Mac/Linux的路径分隔符，避免手动拼接出错
• showWarnings = FALSE：文件夹已存在时不会弹出警告，不影响程序运行
• 三层嵌套循环：从银行→Level→Grade逐层创建，严格保证嵌套结构正确
• 可选的Excel导出：直接将对应银行的数据写入其专属文件夹，实现文件与文件夹的对应管理

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