# 複数のデータファイルを一括してリストに読み込む
fnames <- dir(pattern=".csv") # とすると、作業ディレクトリ内のcsvファイルのみを選んでくれる
# fnamesp <- choose.files() # ファイルを選ぶ。パスのベクトルが保存される。リストの要素名には使いづらい
csvlist <- lapply(fnames, read.csv)
names(csvlist) <- fnames
csvlist
# 読み込んだcsvをマージする
n <- length(csvlist)
temp <- csvlist[1](1.md)
for (i in 2:n) {
temp <- merge(temp, csvlist[i](i), all=T.md)
}
res <- temp
res
