R语言 对文件夹所有的txt文件中的某一列提取出来形成新的数据框导出,行名设置成每个txt的文件名

你可以使用以下代码实现：

# 设置工作目录
setwd("your_folder_path")

# 获取所有txt文件路径
file_paths <- list.files(pattern = "\\.txt$")

# 创建一个空的数据框
output_df <- data.frame()

# 循环读取每个txt文件并提取指定列
for (i in 1:length(file_paths)) {
  # 读取txt文件
  data <- read.table(file_paths[i], header = TRUE, sep = "\t")
  
  # 提取指定列
  column_data <- data$column_name
  
  # 将列数据添加到输出数据框中
  output_df[i,] <- column_data
  
  # 设置行名为文件名
  rownames(output_df)[i] <- gsub(".txt", "", file_paths[i])
}

# 导出数据框为csv文件
write.csv(output_df, file = "output_file.csv", row.names = TRUE)

其中，需要替换的部分是：

- `your_folder_path`：文件夹路径。
- `column_name`：需要提取的列的名称。
- `output_file.csv`：导出的文件名。