Поскольку .key устарел, как можно переименовать столбец данных в nest()?

Question

Перед .key устарел, я сделал это:

library(tidyverse)

mtcars %>% group_by(cyl) %>% nest(.key = "my_name")

Помощь nest() указывает, что теперь это выполняется с использованием аккуратного выбора, но я не знаю, как это сделать.

Answer 1

Вы можете использовать новый nest_by функционировать в dplyr 1.0.0, который работает аналогично тому, что было раньше с nest.

library(dplyr)
mtcars %>% group_by(cyl) %>% nest_by(.key = "my_name")

#   cyl             my_name
#  <dbl> <list<tbl_df[,10]>>
#1     4           [11 × 10]
#2     6            [7 × 10]
#3     8           [14 × 10]

Вы также можете сделать то же самое без группировки.

mtcars %>% nest_by(cyl, .key = "my_name")

Answer 2

Вы можете использовать group_cols() для ссылки на группирующие переменные:

mtcars %>% group_by(cyl) %>% nest(my_name = !group_cols())
#> # A tibble: 3 x 2
#> # Groups:   cyl [3]
#>     cyl my_name
#>   <dbl> <list>
#> 1     6 <tibble [7 × 10]>
#> 2     4 <tibble [11 × 10]>
#> 3     8 <tibble [14 × 10]>

mtcars %>% nest(my_name = !cyl)
#> # A tibble: 3 x 2
#> # Groups:   cyl [3]
#>     cyl my_name
#>   <dbl> <list>
#> 1     6 <tibble [7 × 10]>
#> 2     4 <tibble [11 × 10]>
#> 3     8 <tibble [14 × 10]>

Answer 3

Имя можно указать прямо в аргументах nest:

mtcars %>% nest( my_name = -cyl )    # Nest by everything except cyl
#  # A tibble: 3 x 2
#      cyl my_name
#    <dbl> <list>
#  1     6 <tibble [7 × 10]>
#  2     4 <tibble [11 × 10]>
#  3     8 <tibble [14 × 10]>