2 
library(tidyverse)
df <- tibble(x1 = c("A", "A", "A", "B", "B", "B"),
             x2 = c(NA, 8, NA, NA, NA, 5),
             x3 = c(3, 6, 5, 9, 1, 9))
#> # A tibble: 6 x 3
#>   x1       x2    x3
#>   <chr> <dbl> <dbl>
#> 1 A        NA     3
#> 2 A         8    NA
#> 3 A        NA     5
#> 4 B        NA     9
#> 5 B        NA     1
#> 6 B         5     9

我在列中显示了组“A”和“B” x1。我需要列中的“NA”值，x2并且仅从同一组中的值x3填充方向。很简单，代码如下：updown

df %>% group_by(x1) %>% fill(c(x2, x3), .direction = "updown")
#> # A tibble: 6 x 3
#>   x1       x2    x3
#>   <chr> <dbl> <dbl>
#> 1 A         8     3
#> 2 A         8     5
#> 3 A         8     5
#> 4 B         5     9
#> 5 B         5     1
#> 6 B         5     9

我的现实问题是我的数据框不只包含x1通过x3. 这更像是x1通过x100。并且列名非常随机，没有逻辑顺序。为了省去在其中输入所有 ~100 列的麻烦，我尝试了everything()下面显示的 tidyselect 参数。但这会产生一个可以理解的错误。我不知道如何解决它。

df %>% group_by(x1) %>% fill(everything(), .direction = "updown")
#> Error: Column `x1` can't be modified because it's a grouping variable

我昨天问了一个相关的问题，关于命名everything()论点的例外，我的方法太简单了，结果导致我想在解决方案中看到的意图混淆。建议的解决方案“您可以使用select(-variable)”在我上面概述的情况下不起作用（我相信）。因此，这个新问题。我该怎么办？

我还应该提到，简单地选择数字列序列（即2:100）是行不通的，因为我需要按名称挑选一些列（例如x45，x70）。并且列的顺序可以逐月更改，我必须按列名挑选。所以使用everything()选项everything_but(column.names = c(x45, x70))将是我真正想要的。它存在吗？

4

1 回答 1

3

你可以做：

df %>%
 group_by(x1) %>%
 fill(-x1, .direction = "updown")

  x1       x2    x3
  <chr> <dbl> <dbl>
1 A         8     3
2 A         8     6
3 A         8     5
4 B         5     9
5 B         5     1
6 B         5     9

此行为记录在以下文档中tidyr（另请参阅@Gregor 的评论）：

您可以提供裸变量名称，使用 x:z 选择 x 和 z 之间的所有变量，使用 -y 排除 y。

于 2019-10-24T13:27:10.240 回答