批量读取和写出文件
#批量读取文件
files <- list.files("./Documents/60岁以上/",pattern = "xlsx",full.names = T)
df = purrr::map_dfr(files, readxl::read_xlsx)
save(df,file = './Documents/df.RData')
load("D:\\df.RData")
#按某列数据进行拆分写为文件
df %>%
group_by(区县名称) %>%
group_walk(~ write_csv(.x, paste0(.y$区县名称, ".csv")))
评论
发表评论