1つのフォルダにまとめられたcsvファイルから特定のデータ配列だけ抜き出して、列にまとめる方法【R言語】-リケジョのプログラム備忘録

csv_list <- list.files(pattern = "*.csv") #ディレクトリ内の名前が.csvで終わるファイル名を取得
a<-lapply(csv_list, function(x) read.csv(x, header=TRUE,stringsAsFactors = FALSE))
#ファイルを一括取り出し※1 参考文献あり

all_df=NULL　#空のベクトル定義
for(i in 1:10){                   #1-10まで(ファイルの数)くり返す
all_df<-cbind(all_df,a[[i]]$time) #timeの行だけ取り出して挿入
}
all_data                          #まとめた保存データの確認

write.csv(all_data, "all_d.csv",row.names=TRUE) #まとめた保存データをファイルで出力