如何实现用R语言一次读取多个zip文件，获取zip文件里的数据？今天丁老师教给大家。

R语言可以使用zip_vector函数，可以读取所有zip压缩文件里的内容，并且无需使用循环。

代码示例：

datprocessorC <- function(zip_vector) {
    f <- function(zipfile) {
        fls <- unzip(zipfile, list = TRUE)$Name
        lapply(fls, \(f) fread(unzip(zipfile, files = f))) |> rbindlist(fill = TRUE)
    }
    lapply(zip_vector, f) |> rbindlist(fill = TRUE)}
    
#从list.files()返回的压缩文件向量上运行
importC <- datprocessorC(zips)

下面是另一个函数，可以不解压zip文件，直接通过unz/readr::read_csv读取，并且不生成zip压缩包里的文件，通通直接读取。但是这个函数提取数据所需的时间大约是datprocessorC的两倍。

datprocessorD <- function(zip_vector) {
    f <- function(zipfile) {
        fls <- unzip(zipfile, list = TRUE)$Name
        out <- vector("list", length(fls))
        for(i in seq_along(fls)) {
            tmp <- unz(zipfile, filename = fls[i])
            out[[i]] <- readr::read_csv(file = tmp, show_col_types = FALSE)
        }
        data.table::rbindlist(out, fill = TRUE)
    }
    lapply(zip_vector, f) |> data.table::rbindlist(fill = TRUE)
}