列的 R 中的线性插值

Question

我有一个名为“费率”列的表格。 此列包括缺失值。 我需要计算线性函数，其中缺失值是根据先前的现有值和缺失值之后的值计算的，并且替换的缺失值之间应该有相等的间隔。

例如，列 'rates' 包括值： 0,66 Na Na Na 0,77 0,75 0,79 Na Na 0,79

而且我需要得到一个新列，其中 Na 值将按照我上面描述的方式在 R 中替换。

Answer 1

您可以使用zoo包中的na.approx 。 根据文档的功能：

用插值替换每个 NA 的通用函数。

代码：

df <- data.frame(rates = c(0.66, NA, NA, NA, 0.77, 0.75, 0.79, NA, NA, 0.79))

library(zoo)
df$new_rates <- na.approx(df$rates)
df
#>    rates new_rates
#> 1   0.66    0.6600
#> 2     NA    0.6875
#> 3     NA    0.7150
#> 4     NA    0.7425
#> 5   0.77    0.7700
#> 6   0.75    0.7500
#> 7   0.79    0.7900
#> 8     NA    0.7900
#> 9     NA    0.7900
#> 10  0.79    0.7900

^{由reprex 包于 2022-07-05 创建 (v2.0.1)}