我想创建一个接受目录的函数,然后在该目录中读取100个csv文件。然后,我想在一个数据框(" df"在我的代码中)存储每个文件的文件ID和没有丢失数据的行数。所以我的数据框在完成时将有两个变量(列)和100行。
这是我的代码。这可以工作,但我的数据框中唯一的一行,当它完成时,是最后一个文件处理的数据,而不是所有文件。看来我的数据框每次都会被循环覆盖。
myFunction <- function(directory) {
df <-- data.frame(Id=integer(),nobs=integer())
for(i in 1:100) {
fileName <- sprintf("%03d.csv",i)
rowData <- read.csv(paste(directory,fileName,sep=""),header=T)
completeCases = rowData[complete.cases(rowData),]
df <- rbind(c(i,length(completeCases[[1]])))
}
df
}