2

我有一个文件夹(my_files),里面有大约 1000 个文件夹。这 1000 个文件夹中的每一个都有 6 个 csv 文件。我想通过聚合每个目录的这 6 个 csv 来获得 1000 个 csv 文件。

我有以下代码:

files<-list.files("/Users/me/Desktop/my_files")
for (i in files)
{
         //open each directory in "files"
        //aggregate all csvs in the directory into one
       //name of the aggregated csvs should be the name of the folder they were inside of
}

我正在尝试使用类似的东西:

for (i in files)
{
    files2<-list.files("/Users/me/Desktop/my_files/"i)
}

列出 my_files 目录中的文件,但显然这是错误的语法。

4

1 回答 1

2

我创建了一个文件夹,并用,和my_files填充了它。每个文件夹都包含一个带有隐藏消息的 file1.txt。让我们看看这些消息读到了什么。匿名函数可以适应读取所有文件并将它们组合起来。我会让你完成任务。folder1folder2folder3

# I've created a folder "my_files" that is...
setwd("q:/my_files")

# populated by three subfolders
thousand.folders <- list.dirs(full.names = TRUE)

result <- sapply(thousand.folders[-1], function(x) {
  file <- list.files(x, full.names = TRUE)  
  message(readLines(file))
})

file1 in folder1
file1 in folder2
file1 in folder3
于 2013-02-27T13:29:25.637 回答