# trmm按照年分类整理
# 形成1998-2018年逐个文件夹，文件夹名字为年 dir.create()
rm(list = ls())
path <- 'd:/trmm_day_data'
filename <- dir('d:/trmm_day_data')
year <- as.character(seq(1998,2018,1))
for (i in 1:21) {
    for (j in 1:7732) {
      file <- paste('path',
                    year[i],sep = '/')
      dir.create(file)
      if(grepl(year[i],stri_sub(filename[j],12,15)) == TRUE){
        file_name <- paste(path,filename[j],sep = '/')
        file.copy(file_name,file)
    }
  }
}