您可以从unnest的输出中提取值，稍微处理一下以生成列名，然后返回spread。请注意，我使用flatten_chr是因为您的深度为1的列表列，但如果它是嵌套的，您可以使用flatten，而spread也可以在列表列上工作。

library(tidyverse)
#> Warning: package 'dplyr' was built under R version 3.5.1
mydf <- data_frame(
  regular_col = c(1, 2),
  normal_col = c("a", "b"),
  weird_col = list(
    list("hakuna", "matata"),
    list("squash", "banana")
  )
)
mydf %>%
  unnest(weird_col) %>%
  group_by(regular_col, normal_col) %>%
  mutate(
    weird_col = flatten_chr(weird_col),
    weird_colname = str_c("weirdo_", row_number())
    ) %>% # or just as.character
  spread(weird_colname, weird_col)
#> # A tibble: 2 x 4
#> # Groups:   regular_col, normal_col [2]
#>   regular_col normal_col weirdo_1 weirdo_2
#>         <dbl> <chr>      <chr>    <chr>   
#> 1           1 a          hakuna   matata  
#> 2           2 b          squash   banana

字符串
由reprex package（v0.2.0）于2018-08-12创建。

unnest垂直开发列表和向量，水平开发一行数据框。所以我们可以做的是将您的列表更改为数据框（具有足够的列名），然后再使用unnest。

mydf %>% mutate(weird_col = map(weird_col,~ as_data_frame(
  setNames(.,paste0("weirdo_",1:length(.)))
  ))) %>% 
  unnest

# # A tibble: 2 x 4
#   regular_col normal_col weirdo_1 weirdo_2
#         <dbl>      <chr>    <chr>    <chr>
# 1           1          a   hakuna   matata
# 2           2          b   squash   banana

字符串

tidyr 1.0引入unnest_wider()正是为了这个目的。

library(dplyr)
library(tidyr)

mydf <- data_frame(regular_col = c(1,2),
                   normal_col = c('a','b'),
                   weird_col = list(list('hakuna', 'matata'),
                                    list('squash', 'banana')))

mydf %>% unnest_wider(weird_col, names_sep = '_')
#> # A tibble: 2 × 4
#>   regular_col normal_col weird_col_1 weird_col_2
#>         <dbl> <chr>      <chr>       <chr>      
#> 1           1 a          hakuna      matata     
#> 2           2 b          squash      banana

字符串
创建于2023-12-15使用reprex v2.0.2