如何使用 if next 條件將 for 循環結果存儲到 dataframe

Question

我對 R 很陌生，所以如果我問一些明顯的問題，我深表歉意。 我正在嘗試為 143,635 個循環做一個 for 循環。 但是在循環中，在某些情況下我會跳過循環。

下面是我的代碼（~~~是循環的一些代碼）

j=1
result<-NULL

for(j in 1:143635)  
{~~~ 
if(nrow(OD_Routetable)<2) next 

~~
result1<-(prd_v==test$route)/nrow(test)*100

result<-rbind(result,result1)

}

有沒有辦法可以將我的 for 循環結果保存到 143,635 行的數據框中，同時為跳過的循環填充值為“100”的數據框？ 否則會更有用嗎？

Answer 1

像下面這樣的for循環怎么樣？

result<-c()

for(j in 1:143635)  
{~~~ 
if(nrow(OD_Routetable)<2) {
    result[j] <- 100
} else {
    result[j]<-(prd_v==test$route)/nrow(test)*100
}
~~

}