你刚刚提供的那个程序不行

非常抱歉，可能是我的代码没有考虑到一些细节问题。以下是一个更完整的程序，能够读取一个文件夹中所有txt文件并提取出第1、2和15列，然后将结果保存回原文件。

# setwd("your_folder_path") # 设置工作目录，也可以手动指定文件夹路径

# 获取文件夹中所有txt文件
files_list <- list.files(pattern = "*.txt")

# 循环读取每个文件并提取需要的列
for (file in files_list) {
  # 读入文本文件
  data <- read.table(file, header = TRUE, sep = "\t", na.strings = "", fill = TRUE, stringsAsFactors = FALSE)
  
  # 选择需要的列
  new_data <- data[, c(1, 2, 15)]
  
  # 将新数据写入原文件
  write.table(new_data, file, sep = "\t", row.names = FALSE, col.names = TRUE, quote = FALSE)
}

在这个程序中，我们首先通过`list.files()`函数获取文件夹中所有扩展名为`.txt`的文件名，并存储在`files_list`变量中。然后我们使用一个`for`循环逐个读取每个文件，读入数据时指定了一些参数：

- `header = TRUE`：表示第一行是列名。
- `sep = "\t"`：表示制表符是列之间的分隔符。
- `na.strings = ""`：将所有缺失值表示为空字符串。
- `fill = TRUE`：确保所有行具有相同的列数。
- `stringsAsFactors = FALSE`：确保读入的数据不会被转换为因子。

接下来，我们使用方括号`[]`选择需要的列，并将结果存储在`new_data`变量中。最后，我们使用`write.table()`函数将新数据写回原文件中，同时指定了以下参数：

- `sep = "\t"`：表示制表符是列之间的分隔符。
- `row.names = FALSE`：表示不将行名写入文件中。
- `col.names = TRUE`：表示将列名写入文件中。
- `quote = FALSE`：表示不将元素用引号括起来。

这个程序应该能够正确地读取所有txt文件并提取出第1、2和15列，然后将结果保存回原文件。如果还有其他问题，请随时让我知道。