从上一个非NA值获取索引

我有这个向量

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

对于每一个 NA ,我想要最后一个前面的非- 不适用 价值。这是第一次 钠 ,上一个非- 不适用 有索引2。接下来的两个 钠 ,上一个非- 钠 索引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