将列表列拆分为每列一个条目

Question

我想将列表列元素拆分为单独的列。

例如，在星球大战数据集中，

data("starwars")

我想要这个列表列（第 7 行中的条目）

c("Attack of the Clones", "Revenge of the Sith", "A New Hope")

根据电影的值分为 A、B、C... 列

   A                          B                   C       D    ...
Attack of the Clones   Revenge of the Sith   A New Hope   NA   ...

我想出了一种方法来做到这一点

starwars %>% separate(films, into= letters[1:7],sep = ",")

这将导致输出

       A                          B                   C             D     ...
c("Attack of the Clones"   "Revenge of the Sith"   "A New Hope")    NA    ...

但这需要一些额外的清理，我认为这不是一般情况。有没有办法一举搞定？

Answer 1

“电影”列是 list 中的 vectors。如果我们想创建具有 7 列的 data.frame，即“电影”的 maximum length 并将其存储为 list，请将 length 分配给整个列的最大长度，将其转换为 @ 987654328@

library(tidyverse)
mx <- max(lengths(starwars$films))
starwars %>% 
   mutate(films = map(films, ~ `length<-`(.x, mx) %>% 
                  as.data.frame.list %>% 
                  set_names(LETTERS[seq_len(mx)]))) %>%
   unnest(films)

---

或者另一个选项是 pull 'films' 列，将其转换为 n map 内的 tibble，与除 'films' 之外的 'starwars' 列绑定

starwars %>% 
    pull(films) %>% 
    map_df(~ t(.x) %>% 
               as_tibble) %>%
    bind_cols(starwars %>% 
                 select(-films), .)