R语言中关于缺失值填补的问题

目前是这样的数据：

想判断RDstaffR列最后一个数据是否是缺失值，若是缺失值，则继续向上判断，若不是缺失值，则用后值填充RDstaffRl列的所有数据。写的是这样的语句（待修改）。
一直判断到第1个数据，直至将RDstaffR列的7个数据填充完毕。

这是其中的一组数据，我打算用for循环来完成每一组的判断与填补（共3207组）。每组缺失的数据个数不一样（只看RDstaffR这一列），有的组是数据部分缺失，还有的组这7个数据全部缺失。数据全缺失的组直接剔除，其他组或用前值填充，或用后值填充，以实现将RDstaffR这一列数据补齐的目的。

感觉这么做太繁琐了，想请教便捷合理的填补方式，求大神不吝赐教~

1. # 实际上就是用最后一个非na来填充整列嘛~easy money~
   
2. 
   
3. library(dplyr)
   
4. 
   
5. out <- input %>%
   
6.   group_by(stock) %>%
   
7.   mutate(new.col = last(na.omit(RDstaffR)))

复制代码

skyfx 发表于 2020-4-3 14:33

不是啊，还有的组是这样的情况：第1至4个数据为NA，第5个和第6个数据有值，且值不相同，则用第5个数据填充第1-4个数据，用第6个数据填充第7个数据，该怎么改进呢？

有什么一口气说完，不带挤牙膏的吧~

skyfx 发表于 2020-4-3 15:00
有什么一口气说完，不带挤牙膏的吧~

说了啊，“这是其中一组数据，有的数据部分缺失，有的数据全部缺失”，“缺失数据用前值或后值填充”。总不能把所有情况都列出来吧，怕问题太长没人愿意看。。

7个数据中第1个缺失，最后1个缺失，12缺失，135缺失，247缺失，12347缺失等等都有可能

library(tidyr)
t<-data.frame(x=1:8,y=c(rep(NA, 4),9,10,rep(NA, 2)))

t%>%fill(y,.direction = "updown")

不懂不装懂 发表于 2020-4-3 17:08
library(tidyr)
t%fill(y,.direction = "updown")

谢谢！！！