【自学笔记】基于R语言的excel表格按列筛选拆分

本文链接：https://blog.csdn.net/qq_41483767/article/details/118058254

#______________根据全省的数据按照不同县拆分，每个县单独成表#####

setwd("F:/拆分数据")#设置工作空间
Q1<-read.csv("VIEW_P206_0_1.csv")#读入数据
name_city<-unique(Q1[,6])#根据第四列（县级行政单位），数据去重，得到各个县的字符串
n<-length(name_city)#获得数据中县级行政单位的个数
out1<-as.character()#定义out1为字符串类型
out_filePath<-as.character()#定义out_filePath<为字符串类型
for (j in 1:n) 
{
  print(name_city[j]);
  outPath = "F:/按县拆分/xx数据" ##输出路径
  out1[j]=paste(outPath,name_city[j],sep='/') ##输出路径名
  out_filePath[j]=paste(name_city[j],".csv",sep='') #最终的输出文件整个路径
  Q2<-subset(Q1, Q1[, 6] == name_city[j])#根据县分类，提取县名为name_city[j]的数据单独成表
  write.csv(Q2,file=out_filePath[j])#输出表格
}
##输出文件

如果想输出excel格式，可以采用xlsx包


setwd("F:/拆分数据")

library(xlsx)
Q1<-read.csv("VIEW_P206_0_1.csv")#读入数据
name_city<-unique(Q1[,6])#根据第四列，数据去重，得到84个县的字符串
n<-length(name_city)
out1<-as.character()
out_filePath<-as.character()
for (j in 1:n) 
{
  print(name_city[j]);
  outPath = "F:/按县拆分/水库数据" ##输出路径
  out1[j]=paste(outPath,name_city[j],sep='/') ##输出路径名
  out_filePath[j]=paste(out1[j],"xlsx",sep=".") #最终的输出文件整个路径
  Q2<-subset(Q1, Q1[,6] == name_city[j])#根据县分类，提取县名为name_city[j]的数据单独成表
  write.xlsx(Q2,file=out_filePath[j])#输出表格
}
##输出文件