R語言讀取數(shù)據(jù)、拆分數(shù)據(jù)，并保存到相應文件夾

將一張Excel表的數(shù)據(jù)按照第一列元素分組，分組后按照某種規(guī)則命名，并重新讀入Excel中，放入指定的文件夾中。

如上所示的excel表，將sheet1中的數(shù)據(jù)按照“地域名稱”拆分，并將數(shù)據(jù)放入相應的省份文件夾，如放入D盤的test文件夾中
D:\mydata\test
|___mydata.xlsx
|___安徽省
    |___安徽省安慶市.xlsx
    |___安徽省蚌埠市.xlsx
|___河北省
    |__河北省蚌埠市.xlsx
|___……

假如數(shù)據(jù)最終的文件夾目錄如上所示。代碼可以作如下編寫：

library(readxl)  # 載入readxl包，使用read_excel讀入excel文件
library(xlsx)    # 載入xlsx包，使用write.xlsx保存文件為excel格式

# setwd()設置路徑為D:\\mydata\\test'
setwd('D:\\mydata\\test')  

# read_excel 讀入數(shù)據(jù)，具體用法可使用幫助。
# 1表示讀入第一張sheet，2表示讀入第二張sheet，也可用sheet = "sheetname"，默認第一行為標題行
dt = read_excel('mydata.xlsx', 2)

# unique() 過濾重復數(shù)據(jù)，保留唯一數(shù)據(jù)
# 此處過濾掉第2列和第3列的重復行，最終只剩下3行不重復數(shù)據(jù)，默認不含標題
pcd <- unique(dt[,2:3])

# pcd 包含7行記錄，第7行為空值，將非空值1-6行賦給province_city
province_city <- pcd[1:6,]

setwd('D:\\mydata\\test')   # 設置當前路徑為省份文件夾放置的目錄
cdir <- setwd('D:\\mydata\\test')

# 循環(huán)次數(shù) n=length(dt[,3] 讀取所有屬于A市的數(shù)據(jù)
for (i in c(1:length(dt[,3]))){
    # subset()讀取子集，subset(data, data[, 1] == "a") 讀取data中第一列所有為a的行
    dt1 <- subset(dt, dt[,2]== province_city[i,1])     
    # paste，設置filename, 即安徽省，河北省
    cfilename = paste(province_city[i,1],".xlsx",sep = "")
    # 用于下面的if語句判斷 創(chuàng)建的“安徽省”目錄是否存在
    f_dir = paste('D:\\mydata\\test\\',province_city[i,2],sep="")

    # 創(chuàng)建的“安徽省”目錄不存在，則創(chuàng)建；存在則不動作
    if (file.exists(f_dir) == F){    
     dir.create(province_city[i,2])    
    }else { }

  # 設置文件名稱，即安徽省安慶市.xlsx
  c_dir = paste('D:\\mydata\\test\\',province_city[i,2],sep = "")

  # 設置c_dir為當前路徑
  setwd(c_dir)

  # write.xlsx 將所需的文件列保存到上述設置的文件中，col.names=TRUE包含標題
  write.xlsx(dt1[,2:5],cfilename,col.names=TRUE,showNA=FALSE)

  # 設置路徑為cdir，進入到下一次循環(huán)
  setwd(cdir)
}