使用R中的动态名称变量循环文件

Question

我有大量文件要导入，都保存为 zip 文件。

从阅读其他帖子看来，我需要传递 zip 文件名，然后是我要打开的文件的名称。由于我有很多文件，我想我可以遍历所有文件并一个一个地导入它们。

有没有办法动态传递名称或者有更简单的方法来做到这一点？

这是我目前所拥有的：

Temp_Data <- NULL
Master_Data <- NULL


file.names <- c("f1.zip", "f2.zip", "f3.zip", "f4.zip", "f5.zip")

for (i in 1:length(file.names)) {
    zipFile <- file.names[i]
    dataFile <- sub(".zip", ".csv", zipFile)

    Temp_Data <- read.table(unz(zipFile, 
                            dataFile), sep = ",")

    Master_Data <- rbind(Master_Data, Temp_Data)

}

我收到以下错误：

In open.connection(file, "rt") :

我可以使用以下方法手动导入它们：

dt <- read.table(unz("D:/f1.zip", "f1.csv"), sep = ",")

我可以动态创建刺痛，但感觉很啰嗦——当我用 read.table(unz(...)) 包装它时不起作用。好像找不到文件名所以报错

cat(paste(toString(shQuote(paste("D:/",zipFile, sep = ""))),",",
      toString(shQuote(dataFile)), sep = ""), "\n")

但是，如果我将其打印到控制台，我会得到：

"D:/f1.zip","f1.csv"

然后我可以将它粘贴到 `read.table(unz(....)) 中，它可以工作，所以我觉得我很接近了

我已经在 data.table 中添加了标签，因为这是我几乎总是使用的，所以如果可以使用 'fread' 来完成，那就太好了。

感谢任何帮助

Answer 1

您可以在此处使用list.files 命令：

首先设置您的工作目录，所有文件都存储在那里：

setwd("C:/Users/...")

然后

file.names = list.files(pattern = "*.zip", recursive = F)

那么你的 for 循环将是：

for (i in 1:length(file.names)) {
#open the files

zipFile <- file.names[i]
dataFile <- sub(".zip", ".csv", zipFile)

Temp_Data <- read.table(unz(zipFile, 
                        dataFile), sep = ",")
# your function for the opened file
Master_Data <- rbind(Master_Data, Temp_Data)

#write the file finaly
write_delim(x = Master_Data, path = paste(file.names[[i]]), delim = "\t", 
col_names = T )}