我有一列帶有 NA 的數字資料，也以 NA 結尾：
df <- data.frame(
Diam_av = c(12.3, 13, 15.5, NA, NA, NA, NA, 13.7, NA, NA, NA, 9.98, 4,0, 8.76, NA, NA, NA)
)
我想插入缺失值。只要有正邊界值可以插入，這zoo對 的函式na.approx就可以正常作業，但如果在我的情況下邊界值之一是 NA（在列的末尾Daim_av：
library(zoo)
df %>%
mutate(Diam_intpl = na.approx(Diam_av))
Error: Problem with `mutate()` input `Diam_intpl`.
x Input `Diam_intpl` can't be recycled to size 18.
? Input `Diam_intpl` is `na.approx(Diam_av)`.
? Input `Diam_intpl` must be size 18 or 1, not 15.
知道如何排除/中和列最終 NA 值嗎？
uj5u.com熱心網友回復：
添加na.rm=F以洗掉錯誤訊息。添加rule=2以從最后一個非 NA 值中獲取值。
df %>%
mutate(Diam_intpl = na.approx(Diam_av, na.rm=F),
Diam_intpl2 = na.approx(Diam_av, na.rm=F, rule=2))
Diam_av Diam_intpl Diam_intpl2
1 12.30 12.30 12.30
2 13.00 13.00 13.00
3 15.50 15.50 15.50
4 NA 15.14 15.14
5 NA 14.78 14.78
6 NA 14.42 14.42
7 NA 14.06 14.06
8 13.70 13.70 13.70
9 NA 12.77 12.77
10 NA 11.84 11.84
11 NA 10.91 10.91
12 9.98 9.98 9.98
13 4.00 4.00 4.00
14 0.00 0.00 0.00
15 8.76 8.76 8.76
16 NA NA 8.76
17 NA NA 8.76
18 NA NA 8.76
uj5u.com熱心網友回復：
如果我理解得很好，您可以將 NA 替換為imputeTS::na_interpolation()，它有很多選項：
library(imputeTS)
df$interpolated <- na_interpolation(df,option = 'linear')$Diam_av
Diam_av interpolated
1 12.30 12.30
2 13.00 13.00
3 15.50 15.50
4 NA 15.14
5 NA 14.78
6 NA 14.42
7 NA 14.06
8 13.70 13.70
9 NA 12.77
10 NA 11.84
11 NA 10.91
12 9.98 9.98
13 4.00 4.00
14 0.00 0.00
15 8.76 8.76
16 NA 8.76
17 NA 8.76
18 NA 8.76
轉載請註明出處，本文鏈接：https://www.uj5u.com/qianduan/369327.html
上一篇：data.table相當于dplyr的bangbang(!!)
下一篇：如何在R中拆分“CHR”列？