Заливка пропущенное значение на основе предыдущих значений

Question

Я следующий вектор:

v <- c(2L, 2L, NA, NA, NA, NA, 8L, NA) 

Как я могу заменить недостающие значения со значением предыдущего ряда + 1, так что становится:

c(2L, 2L, 3L, 3L, 3L, 3L, 8L, 9L) 

Answer 1

Как уже упоминалось, zoo имеет функцию наблюдения с продолжением наблюдения. Мы можем прибавить к нему:

library(zoo) 
v2 <- na.locf(v) 
v2[is.na(v)] <- v2[is.na(v)] + 1L 
#[1] 2 2 3 3 3 3 8 9 

Answer 2

Его не очень или эффективно, но он получает ответ, который вы хотите. Надеюсь, кто-то еще сможет опубликовать какой-нибудь хороший код, но это должно вас начать.

v <- c(2L, 2L, NA, NA, NA, NA, 8L, NA) 
last <- NA 
vec <- vector() 
for (i in 1:length(v)) { 
    cur <- v[i] 
    if (! is.na(cur)) { 
     val <- cur 
     last <- cur 
    } 
    else val <- last + 1 
    vec[i] <- val 
} 

vec