R语言缺失值填补

要对缺失值N/A进行数据填补
例如，图片中的DEPSUMBAR列中N/A填入的要求是和该列N/A所在的YEAR和RSSDID都相同的行的DEPSUMBAR的平均值
意思就是图片中的第二行N/A填入的是1995年，RSSDID为181637的所有存在的DEPSUMBAR的平均值
跪求R语言代码怎么写，谢谢

1. library(tidyr)
   
2. library(dplyr)
   
3. 
   
4. output <- your.data %>%
   
5.   group_by(YEAR, RSSDID) %>%
   
6.   mutate(new = mean(DEPSUMBAR)) %>%
   
7.   replace_na(DEPSUMBAR, new) %>%
   
8.   select(-new)

复制代码

easy money~

可以用吗？可以的话，请付一下款。

可以用吗？可以的话，请付一下款。

可以用吗？可以的话，请付一下款。

skyfx 发表于 2019-12-23 09:05
easy money~

mean里面应该加na.rm=TRUE吧

1. library(dplyr)
   
2. df %>%
   
3.   group_by(YEAR, RSSDID) %>%
   
4.   mutate(
   
5.     DEPSUMBAR = ifelse(
   
6.       is.na(DEPSUMBAR),
   
7.       mean(DEPSUMBAR, na.rm = TRUE),
   
8.       DEPSUMBAR
   
9.     )
   
10.   ) %>%
    
11.   ungroup()

复制代码

1. library(dplyr)
   
2. library(tidyr)
   
3. df %>%
   
4.   group_by(YEAR, RSSDID) %>%
   
5.   mutate(
   
6.     DEPSUMBAR = replace_na(DEPSUMBAR, mean(DEPSUMBAR, na.rm = TRUE))
   
7.   ) %>%
   
8.   ungroup()

复制代码

这样也是可以的。