将 df 开头和结尾的 NA 替换为 dplyr

Question

在列中估算缺失值的最佳包是什么？我查看了处理时间序列数据的 zoo 包，并使用了 LOCF (na.locf)，但首先跳过了 NA...

这是一个示例数据框

> df <- within(df, {duration[c(1,5,9)] <- NA})
> df
  duration
1       NA
2        2
3        3
4        4
5       NA
6        6
7        7
8        8
9       NA

Answer 1

您可以对na.locf 说您不想删除NA，因此它会保留替换中的第一个NA。然后你可以做另一个替换，说你想从最后一个开始用第一个非NA元素替换剩余的NA。

df <-read.table(text = "duration
       NA
        2
        3
        4
       NA
        6
        7
        8
       NA", header = TRUE)

library(zoo)
df <- na.locf(df, na.rm = FALSE)
df <- na.locf(df, na.rm = FALSE, fromLast = TRUE)
df
  duration
1        2
2        2
3        3
4        4
5        4
6        6
7        7
8        8
9        8