首页 > 其他 > 详细

R 拆分EXCEL成多个文件

时间:2018-07-19 20:30:07      阅读:245      评论:0      收藏:0      [点我收藏+]
setwd("C:/Rworkfile")
install.packages("readxl")
library(readxl)
 
www<-read_excel("www.xls")
www
 
table(www[,5])
 
a1=names(table(www$县编码))
a2=rep("XXXXXXXXXXXXXX",73)
a3=rep("XXXXXXXXXXXXXX",11)
 
for  (i in 1:73)
{
  a2[i]=as.matrix(www[www$县编码==a1[i],5])[1]
  a3[i]=as.matrix(www[www$县编码==a1[i],7])[1]
}
 
way= paste0("C:/Rworkfile/新建文件夹/",a3,"/",a2,".csv")
 
 
 
for  (i in 1:73)
{
  write.csv(www[www$县编码==a1[i],1:5],way[i])
}


########使用另一种包###############
install.packages("rJava")
library(rJava)
install.packages("xlsx")
library(xlsx) 
 
write.xlsx(x,"/Users/ap/Desktop/incometsforecast.xlsx","sheet1")

  

R 拆分EXCEL成多个文件

原文:https://www.cnblogs.com/chenlu-vera/p/9337586.html

(0)
(0)
   
举报
评论 一句话评论(0
关于我们 - 联系我们 - 留言反馈 - 联系我们:wmxa8@hotmail.com
© 2014 bubuko.com 版权所有
打开技术之扣,分享程序人生!