3

同じ名前のテキスト ファイル (タブ区切り) を含む 4 つのフォルダーがあり、これらすべてのテキスト ファイルを data.frame にインポートしたいと考えています。例えば：

TopFolder = "G:\\University" 
SubFolder = list.files(TopFolder)
#find the name of the folders in the current directory
DateTime = rbind(read.table(paste(TopFolder,SubFolder[1],"Data.txt",sep = "\\"),sep="\t"),
                read.table(paste(TopFolder,SubFolder[2],"Data.txt",sep = "\\"),sep="\t"),
                 read.table(paste(TopFolder,SubFolder[3],"Data.txt",sep = "\\"),sep="\t"),
                 read.table(paste(TopFolder,SubFolder[4],"Data.txt",sep = "\\"),sep="\t"))

この例は問題なく動作しますが、すべてのファイルを個別にインポートすることなく、ループまたはその他の関数を使用してこの変数を生成することを望んでいました。誰か提案はありますか？

4

1 に答える 1

4

これはどう？

lf = list.files(path = "G:\\University", pattern = "Data.txt", 
                full.names = TRUE, recursive = TRUE, include.dirs = TRUE)

library(plyr)
DateTime = ldply(lf, read.table, sep = "\t")
于 2012-05-21T08:44:36.897 に答える