使用for循环
使用for循环，依次读入文件夹“input”中的文件，将读入的数据放入一个list
# 创建一个空列表来存储数据块
data_list <- list()
# 指定文件夹路径
folder_path <- "input/"
# 获取文件夹中的文件列表
file_list <- list.files(path = folder_path, full.names = TRUE)
# 遍历文件列表并读入数据
for (file_path in file_list) {
# 提取文件名（不包括路径和扩展名）
file_name <- tools::file_path_sans_ext(basename(file_path))
# 读入文件数据（这里假设文件是文本文件）
data <- read.table(file_path, header = TRUE, sep = "\t")
# 将数据添加到列表中，以文件名作为标识
data_list[[file_name]] <- data
}
# 打印列表中的数据
print(data_list)
使用lapply 函数
# 指定文件夹路径
folder_path <- "./extracted/"
# 列出文件夹中的文件
file_list <- list.files(path = folder_path, pattern = "\\.gz$", full.names = TRUE)
# 定义一个函数来读取文件夹中的文件
read_gz_file <- function(file_path) {
data <- data.table::fread(file_path, header = F)
return(data)
}
# 使用 lapply() 读入文件并放到列表中
file_data_list <- lapply(file_list, read_gz_file)
