Question

代替，

split1<- read.csv("C:/Users/Admin/Documents/intern/splitstx/splitstx (1).csv")
split2<- read.csv("C:/Users/Admin/Documents/intern/splitstx/splitstx (2).csv")
.
.
.
split36<- read.csv("C:/Users/Admin/Documents/intern/splitstx/splitstx (36).csv")

我不想保存在1个文件中，因为当所有组合时，它由5GB的csv数据组成，而我的ram不支持它。还有其他解决方案吗？

Answer 1

您要做的就是合并CSV文件中的数据？尝试这样的事情。

library(data.table)
setwd("C:/Users/xxx/Merge Multiple CSV Files/CSV Files/")

WD="C:/Users/xxx/Merge Multiple CSV Files/CSV Files/"
data<-data.table(read.csv(text="CashFlow,Cusip,Period"))

csv.list<- list.files(WD)
k=1

for (i in csv.list){
  temp.data<-read.csv(i)
  data<-data.table(rbind(data,temp.data))

  if (k %% 100 == 0)
    print(k/length(csv.list))

  k<-k+1
}

如何导入多个文件并保存到多个数据文件？

1 个答案: