从R中的循环返回单独的txt文件

Question

我想在循环中返回每个迭代的结果，以将其写入单独的文本文件中，但是由于某种原因，它似乎不起作用。 我的代码是：

 for (i in length(traject)){        
      player <-subset(traject[[i]],subset=(dt==1),)
      test<-player  
      write.table(test, file=paste(i, "test.txt", sep=" "))
      head(test)
       }

哪个仅返回最后一次迭代，在单独的文本文件中生成所有迭代的结果时我会做错什么？

额外信息：该循环适用于每个单独的播放器（具有不同的ID），可通过adehabitatLT包中的as.ltraj（）获得数据。

（我知道这个论坛上有类似的问题，但是没有一个可以帮助我解决这个问题）

Answer 1

也许您应该在for循环中添加1:length(traject) ，如下所示：

for (i in 1:length(traject)){   do something }

您的循环仅返回一个迭代（最后一个），因为您的索引仅是length(traject)而您应该使用1:length(traject)来使索引i从第一个元素一直移动到最后一个，您也可以用seq_len(length(traject))替换1:length(traject) seq_len(length(traject))

Answer 2

正如@Jilber指出的那样，您只需要迭代一个数字。

仅供参考：如果要遍历向量或列表中的所有项目，只需执行

 for (i in traject) {
  #....
 }