如何將「for loop」轉換爲「應用家庭功能」

Question

我的數據框看起來像這樣。 （它有〜300,000行） 我想更快，更優雅地做這個操作。 我該如何克服這個問題。提前致謝。

df <- data.frame(
    X = sample(0:1, 10, replace = T), 
    Y = sample(10:20, 10, replace = T) 
) 

for (i in 2:(nrow(df))) 
{ 
    if (df$X[i] == 0) 
    { 
     df$X[i] = df$Y[i - 1] 
    } 
} 

Answer 1

我們可以嘗試lag

df$X <- ifelse(df$X == 0, lag(df$Y), df$X) 

如果我們需要忽略第一行

df[2:nrow(df), ] <- with(df[2:nrow(df), ], ifelse(X == 0, lag(Y), X))