r - ベクトル内の最新の非欠損値を見つける

Question

欠落していない値を持つベクターの最新の行を返そうとしています。たとえば、与えられた

x <- c(1,2,NA,NA,3,NA,4)

次に、 function(x) は次のようなリストを出力します。

c(1,2,2,2,3,3,4)

非常に単純な質問ですが、複数の列でループまたは総当たりで実行すると、永遠に時間がかかります。

Answer 1

zoo::na.locfそのために使用できます

require(zoo)
x <- c(1, 2, NA, NA, 3, NA, 4)
na.locf(x)
## [1] 1 2 2 2 3 3 4