请帮我写一个批量读取txt文件取出其中两列保存在各自原文件的R语言程序

当然可以，以下是一个简单的R语言程序，可以用于批量读取txt文件并提取其中的两列数据，然后将这两列数据分别保存回原文件中。

# 设置工作目录，即存放txt文件的文件夹路径
setwd("/path/to/txt/files/")

# 获取所有txt文件的文件名
txt_files <- list.files(pattern = "*.txt")

# 循环读取每个txt文件
for (txt_file in txt_files) {
  # 读取txt文件，假设文件中有三列数据，分别为col1、col2和col3
  data <- read.table(txt_file, header = TRUE)

  # 取出第一列col1和第二列col2数据，保存到data_new数据框中
  data_new <- data[, c("col1", "col2")]

  # 将data_new数据框中的数据覆盖回原文件中
  write.table(data_new, file = txt_file, sep = "\t", quote = FALSE, row.names = FALSE)
}

需要注意的是，上述程序中的"/path/to/txt/files/"需要替换为实际存放txt文件的文件夹路径。此外，程序还假设txt文件中有三列数据，分别为col1、col2和col3，如果实际情况不同，需要相应调整程序中的列名。