#讀取文件數據
#install.packages('readr')
library(readr)
file <- readr::read_csv("D:/從0到1學習數據科學/xiaoqu.csv",locale = locale(encoding = "GB18030"))
#提取商圈不同的商圈
biz_circle <- unique(file$xiaoqu_bizcircle)#用dplyr包的filter操作循環拆分數據
#install.packages('dplyr')
library(dplyr)
begin_time <- Sys.time()
for (circle in biz_circle) {#拼接文件名和文件路徑file_name = paste(circle,'.csv',sep = '')file_path = paste('D:/從0到1學習數據科學/拆分文件/',file_name,sep = '')#過濾操作，注意%>%為管道符號file_bizcircle <- file %>% filter(xiaoqu_bizcircle == circle)#寫文件write_csv(file_bizcircle,file_path)
}
end_time <- Sys.time()#測試一下拆表運行時間
print(end_time - begin_time)

#獲取文件夾中的文件名
fileName <- dir('D:/從0到1學習數據科學/拆分文件/')
#拼接文件路徑
file_path <- paste('D:/從0到1學習數據科學/拆分文件/',fileName,sep = '')#循環讀入
file_conbind <- data_frame()
for (path in file_path) {file_bizcircle <- read_csv(path)#rbind拼接數據file_conbind <- rbind(file_conbind,file_bizcircle)
}