Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/loops/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用R在循环中合并表_R_Loops - Fatal编程技术网

使用R在循环中合并表

使用R在循环中合并表,r,loops,R,Loops,我有一个关于我写的循环的简单问题。我想访问不同目录中的不同文件,从这些文件中提取数据并合并到一个表中。我的问题是,我的循环不是添加不同文件的结果,而是只使用循环中当前的物种进行更新。这是我的代码: for(i in 1:length(splist.par)) { results<-read.csv(paste(getwd(),"/ResultsR10arcabiotic/",splist.par[i],"/","maxentResults.csv",sep=""),h=T)

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

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)
}
for(i in 1:长度(splist.par))
{ 

结果我会使用
lappy
从每个文件中获取所需的数据并添加物种信息,然后与
rbind
结合。类似这样的东西(未测试):

<代码> do.Cube(rBin,LpApple)(SPList.PAR,函数(x){
d我会使用
lappy
从每个文件中获取所需的数据,并添加物种信息,然后与
rbind
结合。类似这样的东西(未测试):

<代码> do.Cube(rBin,LpApple)(SPList.PAR,函数(x){
d@Aaron的
lappy
答案很好,也很干净。但要调试代码:您将一堆数据放入
表中
,但每次都覆盖
。您需要这样做

table <-cbind(table, species,AUC,AUC_SD,Variable,Resolution) 

:-)

@Aaron的
lappy
答案很好,也很干净。但要调试代码:您将一堆数据放入
表中
,但每次都覆盖
。您需要这样做

table <-cbind(table, species,AUC,AUC_SD,Variable,Resolution) 

:-)

您可能需要更多的标签和一些格式-这是什么语言?您可能需要更多的标签和一些格式-这是什么语言?如果这有帮助,请单击向上箭头投赞成票。如果它解决了您的问题,请单击复选标记让其他人知道这是有效的。(两种都可以。)欢迎使用StackOverflow!如果这有帮助,请单击向上箭头投赞成票。如果它解决了您的问题,请单击复选标记让其他人知道这是有效的。(两种都可以。)欢迎使用StackOverflow!很好的说明,谢谢。但是
rbind(表,cbind(物种,AUC,AUC_SD,变量,分辨率))
,我想。谢谢你们两位的评论。这非常有帮助!很好的澄清,谢谢。但是
rbind(表,cbind(物种,AUC,AUC\u SD,变量,分辨率))
,我想。谢谢你们两位的评论。这非常有帮助!
table(table)