将list-column添加到tibble，其中每个元素是另一个list-column的第一个元素

Question

我知道如何为非列表列做类似的事情。例如：

library(tidyverse)
mtcars %>% mutate(first_cyl = first(cyl))

我希望对于list-columns，这将起作用：

mtcars %>% 
  group_by(gear) %>% 
  nest(.key = "x") %>% 
  mutate(first_x = first(x))

但会产生错误。

Answer 1

我想我错过了列表功能。现在，这有效：

mtcars %>% 
  group_by(gear) %>% 
  nest(.key = "x") %>% 
  mutate(first_x = list(first(x)))