R语言 对文件夹所有的txt文件中的某一列提取出来形成新的数据框导出

你可以使用以下步骤来实现：

1. 使用 R 的 `list.files()` 函数获取文件夹中所有的 TXT 文件的文件名。

file_names <- list.files("path/to/folder", pattern = "\\.txt$", full.names = TRUE)

这里，`path/to/folder` 是你的文件夹路径，`pattern` 参数用于筛选出 TXT 文件，`full.names` 参数则是返回文件的完整路径。

2. 创建一个空的数据框，用于存储提取出来的数据。

new_data <- data.frame()

3. 使用 `lapply()` 函数遍历所有的 TXT 文件，读取指定列，并将它们合并到新数据框中。

for (file in file_names) {
  data <- read.table(file, header = TRUE, sep = "\t", stringsAsFactors = FALSE)
  new_data <- rbind(new_data, data[, "column_name"])
}

这里，使用了 `read.table()` 函数读取 TXT 文件，`header` 参数用于指定是否有表头，`sep` 参数则是指定分隔符，`stringsAsFactors` 参数则是指定是否将字符型变量转换为因子型变量。然后，使用 `rbind()` 函数将提取出来的列合并到新数据框中。

4. 最后，使用 `write.table()` 函数将新数据框导出为 TXT 文件。

write.table(new_data, "path/to/new_file.txt", row.names = FALSE, col.names = FALSE, sep = "\t")

这里，`path/to/new_file.txt` 是你想要导出的文件路径，`row.names` 参数用于指定是否写入行名，`col.names` 参数则是指定是否写入列名，`sep` 参数则是指定分隔符。