如何修改lapply匿名函数，为read.csv读取的数据集第二列设文件名列名

这很容易实现，只需要在你的lapply匿名函数里加两步：提取文件名，然后修改第二列的列名就行。这里直接给你修改好的代码：

file_list = list.files(pattern="*.csv")
datalist = lapply(file_list, function(x){
  # 读取无表头的文件
  df <- read.csv(file=x, header=F, sep = "\t")
  # 获取文件名（可选：去掉.csv后缀，保留纯名称）
  target_colname <- tools::file_path_sans_ext(x)
  # 将第二列的列名替换为文件名
  colnames(df)[2] <- target_colname
  # 返回处理后的数据框
  df
})

代码解释： #

• 读取文件的部分和你原来的逻辑完全一致，先把每个制表符分隔的文件读成无表头的数据框（默认列名会是V1, V2, ...）。
• tools::file_path_sans_ext(x)是个实用函数，能帮你去掉文件名里的.csv后缀。如果你想保留完整的文件名（比如sample_data.csv），直接把target_colname改成x就行。
• 用colnames(df)[2]精准定位到第二列，把它的列名替换成对应的文件名，第一列保持默认的V1（如果你想给第一列设固定名称也可以加colnames(df)[1] <- "你想要的名称"，不过你说第一列无需唯一，所以不用额外处理）。
• 最后返回修改好的数据框，这样datalist里的每个元素就都满足需求啦。

如果担心部分文件列数不足导致报错，可以加个小判断：

if(ncol(df) >= 2) {
  colnames(df)[2] <- target_colname
}

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