R中如何填充NA值

R中如何剔除起始全部的NA值，从第一个非NA值开始，以后每个NA值均填充为下一个非NA值如下图所示

1. library(tidyverse)
   
2. df %>%
   
3.   mutate(flag = cumsum(!is.na(original_col))) %>%
   
4.   filter(flag != 0) %>%
   
5.   select(-flag) %>%
   
6.   fill_na(original_col, .direction = "up")

复制代码

a[which(!is.na(a))]