r ファイル読み込み（复数一括読み込み含む）

Posted 2021-05-24

file.path.list <- list.files('./data/', full.names = TRUE, pattern = ".csv")

# rbindで実行
data <- do.call(rbind, lapply(file.path.list, fread, header = TRUE, sep = '\t'))

# data.tableを使用するならこちらが高速
data <- rbindlist(lapply(file.path.list, fread, header = TRUE, sep = '\t'))

data.dir <-"C:/Users/sato/Desktop/2016-08-22_tokyo/r_program/TokyoStateAnalytics/"
data.name <- "2015_TokyoStateResult.tsv"

ship.data <-read.csv(paste(data.dir, data.name, sep = ""),header = T,sep = "\t")