Получить индекс из последнего предыдущего значения не-NA

Question

У меня есть этот вектор

set.seed(234)
x <- sample(c(rep(NA,3),1:5))
x
[1]  3  5 NA  1  4 NA NA  2

Для каждого NA мне нужен индекс (или значение) последнего предшествующего не NA значения.То есть для первого NA последний предыдущий не-NA имеет индекс 2. Для следующих двух NA их последний предыдущий не-NA имеет индекс 5:

[1]  NA  NA 2  NA  NA 5 5  NA

База R или tidyverse будет в порядке.Я пробовал комбинации lag, lead, rle, gl и coalesce, но все безуспешно.Например, это довольно близко, но все же неправильно.

a <- rle(is.na(x))
rep(1:length(a$lengths), a$lengths)
[1] 1 1 2 3 3 4 4 5

Answer 1

Использование базы R

y=1:length(x)
y[is.na(x)]=0
y=cummax(y)
y[!is.na(x)]=NA

y
[1] NA NA  2 NA NA  5  5 NA

сжать до одной_линии от Хенрик

replace(cummax(seq_along(x) * !is.na(x)), !is.na(x), NA)

Answer 2

Вот способ получить значения с помощью функции tidyr fill

library(tidyr)
fill(as.data.frame(x),x)[is.na(x),]
#[1] 5 4 4