R进行批量读取ｔｘｔ 合并到一起

当使用R进行批量处理文件时，我们通常会使用循环结构（如for循环）来处理一系列文件，以及使用R的文件处理函数来读取、处理和写入文件。

示例：将多个文件中的数字相加并输出结果

假设您有一系列包含数字的文本文件，每个文件中包含一行数字，您希望将每个文件中的数字相加并将结果输出到新的文件中。

1. 创建示例文件

首先，创建一些示例文本文件。假设您有三个文件：file1.txt、file2.txt和file3.txt，它们分别包含以下内容：

file1.txt:

10
20
30

file2.txt:

5
15
25

file3.txt:

2
4
6

2. 使用R批量处理文件

# 设置工作目录（包含示例文件的路径）
setwd("/path/to/your/files/")

# 获取文件列表
file_list <- list.files(pattern = "*.txt")

# 创建一个空的向量用于存储每个文件的和
sum_list <- numeric(length(file_list))

# 循环处理每个文件
for (i in seq_along(file_list)) {
  # 读取文件
  filepath <- file_list[i]
  data <- readLines(filepath)
  
  # 将文件中的数字转换为数值并相加
  numbers <- as.numeric(data)
  file_sum <- sum(numbers)
  
  # 将每个文件的和存储到sum_list向量中
  sum_list[i] <- file_sum
}

# 输出每个文件的和
cat("文件和列表：\n")
print(sum_list)

# 将每个文件的和写入新的结果文件
result_file <- "result.txt"
writeLines(as.character(sum_list), con = result_file)
cat("结果已保存至：", result_file, "\n")