填充索引值上方和下方的选择行答案

【问题标题】：Fill select row above and below index value填充索引值上方和下方的选择行
【发布时间】：2019-01-27 00:08:49
【问题描述】：

在 R 中工作时遇到问题
我在数据框（df）中有一个变量（X），看起来像这样

df$X
NA
12345
NA
NA
32409
NA
NA
NA
NA
NA
04598
NA
NA
NA

我需要做以下事情：

如果 X 不是 NA，请替换：
- X 中具有值的前一行
- 填写剩余的行，直到达到下一个值

最终，它需要看起来像这样

我尝试使用 for 循环来完成第一部分（填充上一行），但似乎无法让它工作

for (x in df$X) {

x = df$X[x]  
y = x -1  
df$X[y] <-  ifelse(!is.na(x), x, NA)

}

非常感谢您的帮助！

【问题讨论】：

【解决方案1】：

这是dplyr 和tidyr 的一种方法：

library(dplyr)
df2 <- df %>%
  mutate(X = if_else(is.na(X), lead(X), X)) %>%
  tidyr::fill(X)

【讨论】：