将 for 循环的结果存储在对象或矩阵中

Question

我有以下问题：

我使用 R 中的 for 循环从矩阵中获取特定数据。 我的代码如下。

for(i in 1:100){
   T <- as.Date(as.mondate (STARTLISTING)+i)
   DELIST <- (subset(datensatz_Start_End.frame, TIME <= T))[,1]

   write.table(DELIST, file = paste("tab", i, ".csv"), sep="," )
   print(DELIST)
}

使用print，R 传递数据。 使用write.table，R 将数据传送到不同的文件中。

我的目标是在 一个矩阵 中聚合 for 循环的结果。 （“i”的每一行）

但很遗憾，我做不到。

---

对不起，我是 R 中的真正菜鸟。

for(i in 1:100)
{
T <- as.Date(as.mondate (STARTLISTING)+i)
DELIST <- (subset(datensatz_Start_End.frame, TIME <= T))[,1]
assign(paste('b',i,sep=''),DELIST)

}

这提供了 100 个对象，其中包含我的结果。 但我需要的是 one matrix/dataframe 有 100 列或 one 列表。

有什么想法吗？

---

嘿！

因此我不允许编辑自己的答案，这里我的（简单）解决方案如下：

DELIST <- vector("list",100)
for(i in 1:100)

{
T <- as.Date(as.mondate (STARTLISTING)+i)
DELIST[[i]] <- as.character((subset(datensatz_Start_End.frame, TIME <= T))[,1])
}

DELIST[[99]]  ## it is possible to requist the relevant companies for every 'i'

谢谢大家！

乔治

Answer 1

如果你想要一个列表，你可以使用lapply 而不是循环

LL <- lapply(1:100, 
       function(i) {
         T <- as.Date(as.mondate (STARTLISTING)+i)
         DELIST <- (subset(datensatz_Start_End.frame, TIME <= T))[,1]
         assign(paste('b',i,sep=''),DELIST) 
         }
       )

之后您可以使用do.callrbind 结果一起

result <- do.call(rbind, LL)

或者，如果您确信 LL 的所有元素的列都相同，那么您可以使用包 data.table 中的更高效的 rbindlist

result <- rbindlist(LL)

Answer 2

查看rbind 函数。您可以从空的DELIST.DF 开始，并将每一行附加到循环内 -

DELIST.DF <- NULL
for(i in 1:100){
   T <- as.Date(as.mondate (STARTLISTING)+i)
   DELIST <- (subset(datensatz_Start_End.frame, TIME <= T))[,1]

   DELIST.DF <- rbind(DELIST.DF, DELIST)

   write.table(DELIST, file = paste("tab", i, ".csv"), sep="," )
   print(DELIST)
}