平坦的嵌套列表并保留每个底层元素的所有父键

Question

我需要将任意的< / strong>嵌套列表弄平到数据框架，并将键 /索引的路径保留在一个列中，同时将每个元素在底部级别提取到单个行。

考虑以下列表：

lst <- list(
    animals = list(
        lamas = c("brown", "white"),
        primates = list(
            humans = c("asia", "europe"),
            apes = c("good", "fast", "angry")
        )
    ),
    objects = c("expensive", "cheap"),
    plants = NULL
)

flatten_list（lst，deLimiter =“ _”）的结果应该像这样：

data.frame(
  path = c("animals_lamas", "animals_lamas", "animals_primates_humans", "animals_primates_humans", "animals_primates_apes", "animals_primates_apes", "animals_primates_apes", "objects", "objects", "plants"),
  value = c("brown", "white", "asia", "europe", "good", "fast", "angry", "expensive", "cheap", NA)
)

我很惊讶我无法用Tidyr或Data.tables无法实现这一目标。我需要递归功能，还是为此提供一些开箱即用的解决方案？赞赏！

编辑： akrun 提供了原始数据的解决方案。我意识到，当元素在底部null时，存在问题，从而使问题重新解决了。

edit2 我目前的解决方法是递归null by na在应用 akrun 解决方案，使用函数在这里提供的 [再次由Akrun;）]。

Answer 1

一个可以基于rrapply的解决方案，可以处理null：

library(tidyverse)
library(rrapply)

rrapply(lst, f = \(x) if (is.null(x)) NA else x, how = "melt") %>% 
  unnest(value) %>% unite(path, L1:L3, na.rm = T)

#> # A tibble: 10 × 2
#>    path                    value    
#>    <chr>                   <chr>    
#>  1 animals_lamas           brown    
#>  2 animals_lamas           white    
#>  3 animals_primates_humans asia     
#>  4 animals_primates_humans europe   
#>  5 animals_primates_apes   good     
#>  6 animals_primates_apes   fast     
#>  7 animals_primates_apes   angry    
#>  8 objects                 expensive
#>  9 objects                 cheap    
#> 10 plants                  <NA>

Answer 2

可以通过Melt in到数据。FRAME，然后unite

library(reshape2)
library(dplyr)
library(tidyr)
out2 <- melt(lst) %>% 
        unite(path, L1:L3, sep = "_", na.rm = TRUE) %>% 
        select(path, value)

使用OP输出来检查

> all.equal(out, out2)
[1] TRUE

---

键列 -我们也可以使用linist 和stack来自base r

stack(unlist(lapply(lst, \(x) if(is.null(x)) NA_character_ else x)))[2:1]