用 R 中的前一行替换 NA 行

Question

我想知道是否有人对以下问题有一个快速而肮脏的解决方案，我有一个包含 NA 行的矩阵，我想用前一行替换 NA 行(如果它不是一行的 NA)。

假设第一行不是一行NA

谢谢!

Answer 1

改编自这个问题的答案:Idiomatic way to copy cell values "down" in an R vector

f <- function(x) {
  idx <- !apply(is.na(x), 1, all)
  x[idx,][cumsum(idx),]
}

x <- data.frame(a=c(1, 2, NA, 3, NA, NA), b=c(4, 5, NA, 6, NA, 7))

> x
   a  b
1  1  4
2  2  5
3 NA NA
4  3  6
5 NA NA
6 NA  7

> f(x)
     a b
1    1 4
2    2 5
2.1  2 5
4    3 6
4.1  3 6
6   NA 7