R - 用前一列的值填充一个单元格

Question

我有这样一个数据框

x <- c(1, 0, 0, 0, 2, 0, 0, 3, 0, 0, 0)
y <- c(10:20)
dat <- rbind(x, y)

我不希望 X 行包含 0。相反，我想用最近的非零列中的值替换 0。

预期的输出是

1    1    1    1    2    2    2    3    3     3     3
10   11   12   13   14   15   16   17   18    19    20

这类似于找到的解决方案 here ，但按列操作而不是按行操作。

谢谢!

Answer 1

第 1 步:用 NA 替换所有零，因为 ...

dat[1, dat[1,] == 0] <- NA

第 2 步:... 然后您可以使用 esp 函数。旨在用 NA-values

做你想做的事

dat[1, ] <- zoo::na.locf(unlist(dat[1,]))

# dat[1, ] <- zoo::na.locf(dat[1, ]) 

结果:

#  [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11]
#x    1    1    1    1    2    2    2    3    3     3     3
#y   10   11   12   13   14   15   16   17   18    19    20

---

由于您的示例是一个矩阵，并且您可能有一个用于真实数据的data.frame。确保将 ?unlist data.frame-row 放入向量中，以便 zoo::na.locf 可以按需要运行。