Question

我正在尝试使用for和while循环在R中提取单个主题数据。我希望循环相应地提取数据并将其保存为自己的数据文件。问题是for循环未正确计数主题并返回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]]
      }
  }

这里提到的关键点是在内部循环之外初始化计数器。

While循环嵌套在for循环R中

1 个答案: