ファイル読み込み(複数一括読み込み含む)
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")