While 循環嵌套在 for 循環 R

Question

我正在嘗試使用 for 和 while 循環提取 R 中的單個主題數據。 我希望循環相應地提取數據並將其保存為自己的數據文件。 問題是 for 循環沒有正確計算 Subjects 並返回 b 的正確值。 我的while循環運行良好，因為我可以手動設置 b 的值、運行循環並生成正確的數據文件。

Subjects = (1:2)
r = (1);

ST = (d$onReadyTime) #need to get ST to read not just the first number in onReadyTime for each trial 
ST=strsplit(ST,split = "a")

for (b in (1:length(Subjects)){
  b <- Subjects[r]
while (r == Subjects[b])
    {STSubject = (ST[[b]])
    ST2=(STSubject)
    #ST2=`colnames<-`(ST2,Subjects[i])
    write.table(ST2,file = paste("ST_Subject_",b,".csv",sep=""),row.names = FALSE, col.names= TRUE)
    r = r+1
    }
}

Answer 1

如果沒有最低限度的工作示例，只能提供一般指導。

n <- 0
  for (i in seq_along(models)) {
    for (j in seq_along(meters)) {
      n <- n + 1
      make_line(i, j) -> glances[[n]]
      }
  }

如前所述，這里的關鍵點是在內部循環之外初始化計數器。