批量读取和写出文件

 #批量读取文件

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")))

评论

此博客中的热门博文

V2ray websocket(ws)+tls+nginx分流

Rstudio 使用代理