用两个数值的平均值来填充missing value

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

你好，有一系列缺失值，想用缺失值最邻近的上面的那个数值和下面那个数值来填充这一系列缺失值，应该怎么处理？

如  数据类似
x  y
1  9
2  9
3  10
4  NA
5  NA
6  12
7  11
8  8
9  NA
10 NA
11 6

填充后想变成
  y
1  9
2  9
3  10
4  11
5  11
6  12
7  11
8  8
9  7
10 7
11 6

用了KNN插值处理，可能因为实际数据缺失值较大所以出现报错
类似，
data_new<-knnImputation(data, k =2,meth='mean', distData = NULL)
报错
Error in knnImputation(data_heartrate, k = 2, meth = "mean", distData = NULL) :
  Not sufficient complete cases for computing neighbors.
In addition: Warning message:
In knnImputation(data_heartrate, k = 2, meth = "mean", distData = NULL) :
  NAs introduced by coercion
这个代码在缺失值较少的时候试过没有问题。请各位大佬建议解决，感谢帮助！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：missing value SSIN Miss alue

1. library(tidyverse)

复制代码

1. df <- tibble(x = c(9, 9, 10, NA, NA, 12, 12, 11, 8, NA, NA, 6),
   
2.              y = x)
   
3. 
   
4. df %>%
   
5.   fill(x, .direction = "up") %>%
   
6.   fill(y, .direction = "down") %>%
   
7.   rowwise() %>%
   
8.   mutate(z = mean(c(x, y)))

复制代码