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それにfolder1,folder2とfolder3. 各フォルダーには、非表示のメッセージを含む file1.txt が含まれています。これらのメッセージが何を読んでいるか見てみましょう。匿名関数は、すべてのファイルを読み取り、それらを結合するように適合させることができます。私はあなたにその仕事を任せます。

# 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 に答える