如何将包含不同数据类型的嵌套列表转换为数据框？

Question

我有一个包含不同类型嵌套元素的列表。

library(tidyverse)

# list to be transfomed into a dataframe/tibble
mylist <- 
  list(
    lois = list(
      hair = list(color = "orange", form = "flat"),
      sex = "female"
    )
  )

# structure
str(mylist)
#> List of 1
#>  $ lois:List of 2
#>   ..$ hair:List of 2
#>   .. ..$ color: chr "orange"
#>   .. ..$ form : chr "flat"
#>   ..$ sex : chr "female"

目标是将此列表转换为数据框/表格。期望的输出为：

# A tibble: 3 x 4
  name  value_id attribute text  
  <chr> <chr>    <chr>     <chr> 
1 lois  hair     color     orange
2 lois  hair     form      flat  
3 lois  sex      NA        female

我尝试使用 tidyr::unnest_longer()。但由于列 value 中存在不同的类型，它无法展开：

# unnest_longer does not work like this
mylist %>% 
  enframe() %>% 
  unnest_longer(col = value) %>% 
  unnest_longer(col = value)
#> Error: Can't combine `..1$value` <list> and `..2$value` <character>.

^{此内容由reprex包（v0.3.0）于2021-01-13创建}

这个问题有什么好的解决方案吗？

- piptoma

Answer 1

一种选择是使用 rrapply 库：

rrapply(mylist, how = "melt")

    L1   L2    L3  value
1 lois hair color orange
2 lois hair  form   flat
3 lois  sex  <NA> female

- tmfmnk