R语言如何从CSV文件名提取学校名并新增等长列填充至数据框首列

你之前创建列失败的核心原因是School <- c(length(schoolimport))仅会生成一个值为数据集行数的单元素向量，无法完成整列填充。R中直接给数据框赋值长度为1的单值时，会自动将值循环填充到所有行，无需手动构造等长向量。
完整实现步骤如下：

• 第一步：批量获取目标文件路径
  将所有待处理的同格式CSV文件放到同一个文件夹下，设置R工作目录到该文件夹后，运行以下命令获取所有CSV文件列表：

  # 匹配当前目录下所有.csv后缀的文件
  csv_file_list <- list.files(pattern = "\\.csv$", full.names = FALSE)
  

• 第二步：单文件处理逻辑
  针对单个文件，先从文件名中提取纯学校名（自动去掉_数字.csv后缀），导入数据后直接新增School列即可自动完成所有行的填充：

  # 示例单文件处理
  test_file <- "Greenfield_1.csv"
  # 正则提取学校名：删除末尾的_数字.csv部分
  school_name <- gsub("(_[0-9]+)\\.csv$", "", test_file)
  # 导入CSV数据
  df <- read.csv(test_file, stringsAsFactors = FALSE, check.names = FALSE)
  # 新增School列，R自动填充所有行
  df$School <- school_name
  # 调整列顺序，将School列放到最左侧
  df <- df[, c("School", setdiff(colnames(df), "School"))]
  

  处理后得到的数据集格式和你给出的目标格式完全一致。
• 第三步：循环批量处理所有文件
  遍历所有文件完成处理，可选择直接合并为总数据集，或处理后单独保存：

  # 初始化空总表，用于存储所有学校的数据
  total_df <- data.frame()
  
  for (file in csv_file_list) {
    # 提取当前文件对应的学校名
    current_school <- gsub("(_[0-9]+)\\.csv$", "", file)
    # 导入当前数据
    current_df <- read.csv(file, stringsAsFactors = FALSE, check.names = FALSE)
    # 新增School列
    current_df$School <- current_school
    # 调整列顺序
    current_df <- current_df[, c("School", setdiff(colnames(current_df), "School"))]
    
    # 若需要合并到总表，执行下行
    total_df <- rbind(total_df, current_df)
    
    # 若需要单独保存处理后的单文件，取消下行注释即可
    # write.csv(current_df, paste0("processed_", file), row.names = FALSE)
  }
  

• 注意事项
  • 若导入时列名被自动修改，可在read.csv中加入check.names = FALSE参数保留原始列名
  • 若学校名本身包含下划线或数字，可调整正则匹配规则，确保仅删除文件名末尾的_数字.csv部分即可
  • 处理大量文件时，可将rbind替换为dplyr::bind_rows提升合并效率

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