r语言 - 如何整理data_frame中的巨大空白

Question

我从网络上提取了一些大约 15,000 行的数据。日期列在每个数据"块部分"的开头都有一个日期。其中约25%是空白的。因此，该列将有一个单元格2010，然后是NA一段时间，然后是2010年。基本上，日期是相同的。 。 。直到它改变。我提取了一个日期变量，它看起来像以下代码中的Date_from源列：

data_frame(
  Date_from_source = 
    c(2010,rep(NA,2),2010,rep(NA,2),2011,rep(NA,3),2011,rep(NA,2),2012), 
  Date_tidy = c(rep(2010,6),rep(2011,7),2012))

我坚持如何将Data_from_source列编码为Date_tidy列。我尝试使用group_by和滞后的方法，但我正在旋转我的轮子。 谢谢。

Answer 1

你正在寻找tidyr::fill

library(tidyr)
library(dplyr)
df1 <- data_frame(
  Gender = sample(c('male','female'),14,T),
  Date_from_source = 
    c(2010,rep(NA,2),2010,rep(NA,2),2011,rep(NA,3),2011,rep(NA,2),2012), 
  Date_tidy = c(rep(2010,6),rep(2011,7),2012))
df1 %>% group_by(Gender) %>% fill(Date_from_source)
    # # A tibble: 14 x 3
    # # Groups:   Gender [2]
    # Gender Date_from_source Date_tidy
    # <chr>            <dbl>     <dbl>
    #  1 female               NA      2010
    #  2 female             2011      2011
    #  3 female             2011      2011
    #  4 female             2011      2011
    #  5 female             2011      2011
    #  6   male             2010      2010
    #  7   male             2010      2010
    #  8   male             2010      2010
    #  9   male             2010      2010
    # 10   male             2010      2010
    # 11   male             2010      2011
    # 12   male             2010      2011
    # 13   male             2010      2011
    # 14   male             2012      2012