在R中，获取ZIP归档中每个文件的文本和相应的文件名

install.packages("utils")
library(utils)

zip_file <- "path/to/your/zip/file.zip"
unzip(zip_file, exdir = "path/to/extract/folder")

file_names <- list.files("path/to/extract/folder", full.names = TRUE)

for (file in file_names) {
  file_text <- readLines(file)
  # 在这里可以对文件文本进行进一步处理或分析
}

file_info <- list()
for (file in file_names) {
  file_text <- readLines(file)
  file_info[[file]] <- file_text
}