Предупреждение при добавлении `group_by%>% summarise` в list (): количество заменяемых элементов не кратно длине замены

Question

Мой код:

library(dplyr)
L <- list()
L["Gear"] <- group_by(mtcars, gear) %>% summarise(n = n())
geargroup <- group_by(mtcars, gear) %>% summarise(n = n())

Вторая строка выдает это сообщение:

Warning message:
In L["Gear"] <- group_by(mtcars, gear) %>% summarise(n = n()) :
  number of items to replace is not a multiple of replacement length

L["Gear"] содержит только столбец gear, но geargroup содержит столбцы gear и n.

Как сделать так, чтобы в L["Gear"] были столбцы gear и n?

Answer 1

Имя пользователя верно, двойная скобка решает проблему.

library(dplyr)
L <- list()
L[["Gear"]] <- group_by(mtcars, gear) %>% summarise(n = n())

Выход:

> L
$`Gear`
# A tibble: 3 x 2
   gear     n
  <dbl> <int>
1     3    15
2     4    12
3     5     5

См. Также раздел о списках в R Хэдли Уикхема для Data Science