Question

zoo软件包具有功能na.approx（或na.spline），可将数据中的NA替换为近似值或样条线。

一个可能的论点是maxgap，它可以填补最大的空白。效果很好，除了如果NA位于向量的开头，该函数会更改向量的长度。

例如：

require(zoo)
x <- 1:20 + rnorm(20)
x1 <- x
x1[5] <- x1[6] <- NaN
length(na.approx(x1, maxgap = 1)) == length(x) # TRUE
x2 <- x
x2[1] <- x2[2] <- NaN
length(na.approx(x2, maxgap = 1)) == length(x) # FALSE

将此功能与数据帧一起使用时，这是有问题的。例如：

require(dplyr)
df1 <- tibble(A = 1:20, B = x1)
df1 %>% 
  mutate(B_fill = na.approx(B, maxgap = 1))

df2 <- tibble(A = 1:20, B = x2)
df2 %>% 
  mutate(B_fill = na.approx(B, maxgap = 1))
# Error: Column `B_fill` must be length 20 (the number of rows) or one, not 18

Answer 1

当我问这个问题时，我找到了答案，只需更改na.rm参数。

df2 %>% 
  mutate(B_fill = na.approx(B, maxgap = 1, na.rm = FALSE))

R zoo包：na。大约在NA开头时更改向量的长度

1 个答案: