如何将固定大小 X 的列列表分隔到 X 不同的列？

Question

我有一个 tibble，其中一列是 list 列，总是有两个数值，分别名为 a 和 b（例如，由于调用 purrr:map 到一个返回 list 的函数），比如：

df <- tibble(x = 1:3, y = list(list(a = 1, b = 2), list(a = 3, b = 4), list(a = 5, b = 6)))
df
# A tibble: 3 × 2
  x          y
 <int>     <list>
1     1 <list [2]>
2     2 <list [2]>
3     3 <list [2]>

如何将列表列y分成a和b两列，得到：

df_res <- tibble(x = 1:3, a = c(1,3,5), b = c(2,4,6))
df_res
# A tibble: 3 × 3
  x     a     b
 <int> <dbl> <dbl>
1     1     1     2
2     2     3     4
3     3     5     6

寻找类似tidyr::separate 的东西来处理列表而不是字符串。

Answer 1

使用 dplyr（当前版本：0.7.0）：

bind_cols(df[1], bind_rows(df$y))
# # A tibble: 3 x 3
#       x     a     b
#   <int> <dbl> <dbl>
# 1     1     1     2
# 2     2     3     4
# 3     3     5     6

根据 OP 的评论进行编辑：

要将其嵌入管道中，如果您有许多非列表列，我们可以尝试：

df %>% select(-y) %>% bind_cols(bind_rows(df$y))

Answer 2

我们也可以使用purrr中的map_df

library(tidyverse)
df %>% 
  summarise(x = list(x), new = list(map_df(.$y, bind_rows))) %>%
  unnest
# A tibble: 3 x 3
#      x     a     b
#   <int> <dbl> <dbl>
#1     1     1     2
#2     2     3     4
#3     3     5     6