如何在R语言中使用文件名作为dataframe的列名？

以下是针对你需求的分步解决方案，适合R新手参考：

1. 准备工作 #

假设你的所有目标文件（比如CSV格式）都放在同一个文件夹下，先确认文件格式统一，避免读取错误。

2. 获取文件列表 #

先获取目标文件夹里的所有文件路径：

# 设置工作目录为文件所在文件夹（替换成你的实际文件夹路径）
setwd("C:/your_file_folder")
# 获取所有CSV文件的列表，若为其他格式（如TXT），把pattern改成".txt"
files <- list.files(pattern = ".csv", full.names = FALSE)

这里用full.names = FALSE是为了方便获取纯文件名，不用带路径。

3. 批量读取文件并修改列名 #

用lapply循环处理每个文件，读取后把所有列名替换为对应的文件名：

library(tools) # 处理文件名的工具包，默认已安装

processed_list <- lapply(files, function(file) {
  # 读取文件，CSV用read.csv，TXT用read.table，按需调整参数
  df <- read.csv(file)
  # 获取不带后缀的纯文件名（比如把"amostra4A.csv"变成"amostra4A"）
  file_name <- file_path_sans_ext(file)
  # 将当前数据框的所有列名替换为文件名
  colnames(df) <- rep(file_name, ncol(df))
  # 返回处理后的小数据框
  return(df)
})

注意：如果多个文件处理后有重名列（比如两个文件都生成名为"amostra4A"的列），后续合并会出现列名重复的情况。如果想要避免，建议给列名加原列名后缀，把上面的colnames(df)改成：

colnames(df) <- paste(file_name, colnames(df), sep = "_")

这样amostra4A的V1和V2会变成amostra4A_V1、amostra4A_V2，逻辑更清晰。

4. 合并所有数据框为一个 #

用cbind把所有处理好的小数据框按列合并：

final_df <- do.call(cbind, processed_list)

现在final_df就是合并后的结果，所有列名都是对应的文件名（或带后缀的文件名）。

常见问题提示 #

• 如果合并时报错，大概率是不同文件的行数不一致，检查每个文件的行数是否相同，确保可以按列合并。
• 如果文件格式不是CSV，把read.csv换成对应的读取函数，比如read.table()（适用于TXT）、read_excel()（需要安装readxl包，适用于Excel文件）。

内容的提问来源于stack exchange，提问作者Thiago de Araujo