0

我在 R 上的脚本有问题。

我正在处理一个文件列表，这些文件中的每一个都有一个“日期”列和一个“周”列，其中周数与日期匹配。

我想每周保存所有这些数据：一年中第 1 周的 1 个文件，第 2 周的 1 个文件，等等。

我为此编写了一个脚本。目标也是以文件名中的周数作为输出（write.table），即。data_2014_week_1 表示一年中的第一周。

该脚本在今年的第一周运行良好，但我不能拥有第二周和其他 50 周。

这是脚本：

rm(list = ls())
#
setwd("C:/Users/florent/Documents/R/data")
fileList <- list.files(pattern="scope_ais_.*\\.csv", recursive=TRUE)
i=1
for (file in fileList){
data_2014<-read.table(file, header=T, fill=T, sep=",", nrows=20000)

for (i in 1:51){

data_2014<-data_2014[data_2014$week == i, ]
nrow<-as.numeric(nrow(data_2014))  
    if(nrow>0){
      #data_2014_scope <-     data_2014_scope[order(data_2014_scope$timestamp_pretty) , ]
      dir.create(file.path("C:/Users/florent/Documents/R/data/weeks"),     showWarnings=F)
      directory_divisions=paste("C:/Users/florent/Documents/R/data/weeks/data_2014_wee    k", sep="_",i, ".csv")
      write.table (data_2014, directory_divisions, row.names=F, sep=",")
      #i=i+1  
    } else {
#i=i+1     
}} }

我已尝试 i=i+1 移至下周，但找不到解决方案。

欢迎任何帮助！

4

0 回答 0