r - 使用 R 在循环中合并表

Question

我有一个关于我写的循环的简单问题。我想访问不同目录中的不同文件并从这些文件中提取数据并合并到一个表中。我的问题是我的循环没有添加不同文件的结果，而只是使用当前在循环中的物种进行更新。这是我的代码:

for(i in 1:length(splist.par))
{ 

  results<-read.csv(paste(getwd(),"/ResultsR10arcabiotic/",splist.par[i],"/","maxentResults.csv",sep=""),h=T)

  species <- splist.par[i]
  AUC <- results$Test.AUC[1:10]
  AUC_SD <- results$AUC.Standard.Deviation[1:10]
  Variable <- "a"
  Resolution <- "10arc"
  table <-cbind(species,AUC,AUC_SD,Variable,Resolution)
}

这可能是一个简单的问题，但我不是一个经验丰富的程序员。感谢关注
加布里埃尔

Answer 1

我会使用 lapply从每个文件中获取所需数据并添加物种信息，然后与 rbind 结合.像这样的东西(未经测试):

do.call(rbind, lapply(splist.par, function(x) {
  d <- read.csv(file.path("ResultsR10arcabiotic", x, "maxentResults.csv"))
  d <- d[1:10, c("Test.AIC", "AIC.Standard.Deviation")] 
  names(d) <- c("AUC", "AUC_SD")
  cbind(Species=x, d, stringsAsFactors=FALSE)
}))