r - 向前填充所有变量的所有缺失值

Question

考虑这个简单的数据框

> data_frame(var1 = c(NA, 1 , NA),
+            var2 = c (NA, 3, NA))
# A tibble: 3 x 2
   var1  var2
  <dbl> <dbl>
1    NA    NA
2     1     3
3    NA    NA

我想向前填充数据框中所有列的所有缺失值。在我看来，tidyr::fill() 可以做到这一点，但如果不一次指定一个列，我将无法使其工作。

> data_frame(var1 = c(NA, 1 , NA),
+            var2 = c (NA, 3, NA)) %>% tidyr::fill(.direction = 'down')
# A tibble: 3 x 2
   var1  var2
  <dbl> <dbl>
1    NA    NA
2     1     3
3    NA    NA

输入列名似乎有效

> data_frame(var1 = c(NA, 1 , NA),
+            var2 = c (NA, 3, NA)) %>% tidyr::fill(var1, .direction = 'down')
# A tibble: 3 x 2
   var1  var2
  <dbl> <dbl>
1    NA    NA
2     1     3
3     1    NA

我在这里错过了什么？谢谢

Answer 1

tidyr 动词接受 dplyr::select 列规范，因此您可以使用 everything():

library(tidyverse)

df <- data_frame(var1 = c(NA, 1 , NA),
                 var2 = c (NA, 3, NA))

df %>% fill(everything())
#> # A tibble: 3 x 2
#>    var1  var2
#>   <dbl> <dbl>
#> 1    NA    NA
#> 2     1     3
#> 3     1     3