gpt4 book ai didi

r - 限制zoo包中的na.locf

转载 作者:行者123 更新时间:2023-12-04 10:08:57 31 4
gpt4 key购买 nike

我想对一个变量进行最后一次观察,但最多只能进行 2 次观察。也就是说,对于 3 个或更多 NA 的数据差距,我只会将最后一个观察结果用于接下来的 2 个观察结果,而将其余的作为 NA。

如果我使用 zoo::na.locf 执行此操作, maxgap参数意味着如果间隙大于 2,则不替换 NA。甚至不是最后 2. 有没有其他选择?

x <- c(NA,3,4,5,6,NA,NA,NA,7,8)
zoo::na.locf(x, maxgap = 2) # Doesn't replace the first 2 NAs of after the 6 as the gap of NA is 3.
Desired_output <- c(NA,3,4,5,6,6,6,NA,7,8)

最佳答案

第一次申请 na.locf0maxgap = 2给予 x0并定义一个分组变量 g使用 rleid来自 data.table 包。对于每个这样的组使用 ave申请 keeper如果该组全部为 NA,则用 c(1, 1, NA, ..., NA) 替换它,否则输出全 1。乘法 na.locf0(x)由那个。

library(data.table)
library(zoo)

mg <- 2
x0 <- na.locf0(x, maxgap = mg)
g <- rleid(is.na(x0))
keeper <- function(x) if (all(is.na(x))) ifelse(seq_along(x) <= mg, 1, NA) else 1
na.locf0(x) * ave(x0, g, FUN = keeper)
## [1] NA 3 4 5 6 6 6 NA 7 8

关于r - 限制zoo包中的na.locf,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/52315161/

31 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com