如何取消列列表的嵌套？

Question

我有一个小标题：

tibble(a = c('first', 'second'), 
       b = list(c('colA' = 1, 'colC' = 2), c('colA'= 3, 'colB'=2))) 

# A tibble: 2 x 2
  a      b        
  <chr>  <list>   
1 first  <dbl [2]>
2 second <dbl [2]>

一个要变成这种形式的：

# A tibble: 2 x 4
  a       colA  colB  colC
  <chr>  <dbl> <dbl> <dbl>
1 first     1.   NA     2.
2 second    3.    2.   NA 

我尝试使用unnest()，但是在从嵌套值中保留元素名称时遇到了问题。

Answer 1

您可以通过将列表列中的元素强制为根据需要排列的数据帧来完成此操作，这将使嵌套变得更好：

library(tidyverse)

tibble(a = c('first', 'second'), 
       b = list(c('colA' = 1, 'colC' = 2), c('colA'= 3, 'colB'=2))) %>% 
    mutate(b = invoke_map(tibble, b)) %>% 
    unnest()
#> # A tibble: 2 x 4
#>   a       colA  colC  colB
#>   <chr>  <dbl> <dbl> <dbl>
#> 1 first     1.    2.   NA 
#> 2 second    3.   NA     2.

但是，强制转换有些棘手，因为您不希望最终得到2x1数据帧。有多种解决方法，但是直接路由是purrr::invoke_map，它会在列表中的每个元素上调用带有purrr::invoke（如do.call）的函数。