R中如何将NA替换为离他最近的有效值

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

R中如何将NA替换为离他最近的有效值
例如：
矩阵a
id     num
1     12
2     13
3     NA
4     NA
5     5
6     NA
7     23

处理后的矩阵为：
id     num
1     12
2     13
3     13
4     13
5     5
6     5
7     23

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：有效值 NUM 如何

data$num[which(data$num==NA)]<-data$num[which(data$num==NA)-1]
data$num[which(data$num==NA)]<-data$num[which(data$num==NA)-1]

应该没有==NA 这种写法，只有 is.na
感觉向量化没法一次解决 NA NA NA 连在一起时候的处理方式，（没法解决空间地址？？？）
只有老老实实的写FOR之类。。。 循环吧

am<-matrix(c(1:7,12,13,NA,NA,5,NA,23),ncol=2)
colnames(am)<-c("id","num")


lessmax<-function(x,y) tail(x[x<=y],n=1)  ##函数用来求最近非NA下标
lessmax<-Vectorize(lessmax,"y") ##对第二个参数向量化
ind.na<-which(is.na(am[,"num"])) ##num为NA的行下标
ind.nna<-which(!is.na(am[,"num"])) ##num不为NA的行下标
am ##原始的矩阵
     id num
[1,]  1  12
[2,]  2  13
[3,]  3  NA
[4,]  4  NA
[5,]  5   5
[6,]  6  NA
[7,]  7  23
ind.na
[1] 3 4 6
ind.nna
[1] 1 2 5 7
am[is.na(am[,"num"]),"num"]<-am[lessmax(ind.nna,ind.na),"num"] ##替换
am  ##替换后的矩阵
     id num
[1,]  1  12
[2,]  2  13
[3,]  3  13
[4,]  4  13
[5,]  5   5
[6,]  6   5
[7,]  7  23
>
这样就可以了

danica33 发表于 2014-3-24 11:16
am

太好了。谢谢

安装  DMwR 包，里面有个knnImputation函数，可以用最近的K个邻居填补缺失值。

应该是LOCF吧！

1. a <- c(12,13,NA,NA,5,NA,23)
   
2. b <- na.locf(a)
   
3. b
   
4. [1] 12 13 13 13  5  5 23

复制代码

学习了。。。

1. library(tidyverse)
   
2. a %>%
   
3.   tbl_df() %>%
   
4.   fill(num)

复制代码