使用for循環(huán)
使用for循環(huán)，依次讀入文件夾“input”中的文件纺铭，將讀入的數(shù)據(jù)放入一個list
# 創(chuàng)建一個空列表來存儲數(shù)據(jù)塊
data_list <- list()
# 指定文件夾路徑
folder_path <- "input/"
# 獲取文件夾中的文件列表
file_list <- list.files(path = folder_path, full.names = TRUE)
# 遍歷文件列表并讀入數(shù)據(jù)
for (file_path in file_list) {
# 提取文件名（不包括路徑和擴(kuò)展名）
file_name <- tools::file_path_sans_ext(basename(file_path))
# 讀入文件數(shù)據(jù)（這里假設(shè)文件是文本文件）
data <- read.table(file_path, header = TRUE, sep = "\t")
# 將數(shù)據(jù)添加到列表中木人，以文件名作為標(biāo)識
data_list[[file_name]] <- data
}
# 打印列表中的數(shù)據(jù)
print(data_list)
使用lapply 函數(shù)
# 指定文件夾路徑
folder_path <- "./extracted/"
# 列出文件夾中的文件
file_list <- list.files(path = folder_path, pattern = "\\.gz$", full.names = TRUE)
# 定義一個函數(shù)來讀取文件夾中的文件
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)
