如何在R中批量修改多文件夹TXT文件指定列名并统一列数？

问题分析 #

你之前的代码核心错误是试图给文件名向量fnames修改列名——fnames只是存储文件路径的字符向量，并非数据框，自然无法用colnames()操作。正确逻辑是读取每个文件后，对单个数据框做列名修正，再统一所有数据框的列数。

解决方案代码 #

# 设置工作目录（可选，因list.files已用full.names）
setwd("D:/Data/RawData/Task")
dir_path <- "D:/Data/RawData/Task/"

# 定义单个文件处理函数
process_single_file <- function(file_path) {
  # 读取文件，保留原始列名格式
  df <- read.table(file_path, header = TRUE, sep = "\t", check.names = FALSE, skip = 27, stringsAsFactors = FALSE)
  
  # 统一温度列名：替换"T2 [?C]"为"T2 [°C]"
  current_cols <- colnames(df)
  current_cols[current_cols == "T2 [?C]"] <- "T2 [°C]"
  colnames(df) <- current_cols
  
  return(df)
}

# 批量读取并处理所有文件，得到数据框列表
all_files <- list.files(dir_path, full.names = TRUE, recursive = TRUE)
processed_dfs <- lapply(all_files, process_single_file)

# 收集所有可能的列名，用于后续统一列数
all_possible_cols <- unique(unlist(lapply(processed_dfs, colnames)))

# 对齐所有数据框的列数：缺失列填充NA
aligned_dfs <- lapply(processed_dfs, function(df) {
  # 找出当前数据框缺失的列
  missing_cols <- setdiff(all_possible_cols, colnames(df))
  # 为缺失列赋值NA
  df[missing_cols] <- NA
  # 按统一列名顺序排列，避免合并错位
  df <- df[all_possible_cols]
  return(df)
})

# 合并所有数据框为最终数据集
final_merged_df <- do.call(rbind, aligned_dfs)

关键步骤说明 #

• 单个文件处理：先读取文件，再针对性修正温度列名，确保每个文件的目标列名统一。
• 收集全量列名：遍历所有处理后的数据集，提取所有出现过的列名，保证最终结果包含所有可能的字段。
• 列数对齐：给每个数据集补充缺失列并填充NA，同时统一列顺序，避免合并时出现列错位问题。

内容的提问来源于stack exchange，提问作者Alexia k Boston