如何使用包含列表列表的列扩展 dplyr::tibble？

Question

这是我所拥有的和我想要的：

what_i_have <- dplyr::tibble(
    col_str = "abc",
    col_int = 1,
    col_ls = list(list(
        c(l1 = "1", l2 = "3", l3 = "5"),
        c(l1 = "2", l2 = "4", l3 = "6")
    ))
)

what_i_want <- dplyr::tibble(
    col_str = "abc",
    col_int = 1,
    col_ls = list(
        c(l1 = "1", l2 = "3", l3 = "5"),
        c(l1 = "2", l2 = "4", l3 = "6")
    )
)

what_i_have 看起来像这样

r$> what_i_have                                             
# A tibble: 1 × 3
  col_str col_int col_ls    
  <chr>     <dbl> <list>    
1 abc           1 <list [2]>

what_i_want 看起来像这样

r$> what_i_want                                             
# A tibble: 2 × 3
  col_str col_int col_ls   
  <chr>     <dbl> <list>   
1 abc           1 <chr [3]>
2 abc           1 <chr [3]>

如何将what_i_have 转为what_i_want？谢谢。

Answer 1

我们可以使用来自tidyr 包的unnest：

library(tidyr)
library(dplyr)

what_i_have %>% 
  unnest(cols = c(col_ls))

  col_str col_int col_ls   
  <chr>     <dbl> <list>   
1 abc           1 <chr [3]>
2 abc           1 <chr [3]>