列中R中的线性插值

Question

我有一个名为“费率”的列的表。此列包括缺失值。 我需要计算线性函数，在基于先前的现有值和遵循缺失值之后的值计算中缺失值的情况下，替换值之间的间隔应相等。

例如，列“费率”包括值： 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

^{在2022-07-05创建的 reprex软件包（v2.0.1）}