Rにおける複数ファイルの取込

setwd("XXX")

f<-list.files("XXX", pattern="txt$")

print(f)

j = 1

 

for(i in f) {

dat <-read.table(paste("XXX", i, sep = ""), header = T)

assign(paste("dat",j,sep=""),dat)

j = j + 1

}

# 50,000 x 300 x 8 のデータで読み込みに20分。XXXは適切なディレクトリ。

 

# 4/18改良版

f<-list.files(path="XXX", pattern="txt$")

print(f)

j = 1

 

list <- NULL

for(i in f) {

  dat <-read.table(paste("XXX", i, sep = ""), header = T)

  listj<-dat[order(-dat$YYY),]

  j = j + 1

}