在 R 中使用 lapply 递归填充列表

Question

我正在努力填充预定义的 3 级嵌套列表。

lst <- lapply(list("A1"=NULL, "B1"=NULL),
              function(x){
                 lapply(list("Level2"=NULL),
                        function(y){
                            list("Level3"=NULL)})})

str(lst)
List of 2
 $ A1:List of 1
  ..$ Level2:List of 1
  .. ..$ Level3: NULL
 $ B1:List of 1
  ..$ Level2:List of 1
  .. ..$ Level3: NULL

现在，假设我们想通过连接父级别的名称来替换每个第 3 级，以获得：

str(lst)
List of 2
 $ A1:List of 1
  ..$ Level2:List of 1
  .. ..$ Level3: "A1///Level2"
 $ B1:List of 1
  ..$ Level2:List of 1
  .. ..$ Level3: "B1///Level2"

执行以下操作会删除 2 级名称并打乱初始列表结构：

lst[] <- lapply(names(lst),
                function(x){
                    lapply(names(lst[[x]]),
                           function(y){
                               lst[[x]][[y]][["Level3"]] <- paste(x, y, sep="///")
                           }
                    )
                }
         )

str(lst)
List of 2
 $ A1:List of 1
  ..$ : chr "A1///Level2"
 $ B1:List of 1
  ..$ : chr "B1///Level2"

我很确定这是一项基本任务，但我不明白为什么它不起作用。

Answer 1

您已将第二级列表的元素Level3替换为一个字符向量，该字符向量曾经是一个列表。

要解决此问题，只需将您的paste function 包装在list ：

此外，在 object 的名称上使用lapply的问题是结果未命名为原始 object。 您可以使用基础 R 中的setNames来解决这个问题，但不幸的是，您必须在每个级别都这样做：

lst <- setNames(lapply(names(lst),
                function(x){
                    setNames(lapply(names(lst[[x]]),
                           function(y){
                               setNames(lst[[x]][[y]][["Level3"]] <- list(paste(x, y, sep="///")), "Level3")
                           }
                    ), names(lst[[x]]))
                }
         ), names(lst))
str(lst)
#List of 2
# $ A1:List of 1
#  ..$ Level2:List of 1
#  .. ..$ Level3: chr "A1///Level2"
# $ B1:List of 1
#  ..$ Level2:List of 1
#  .. ..$ Level3: chr "B1///Level2"

Answer 2

您还可以在rrapply （基本rapply的扩展版本）中使用rrapply ，这可能更容易概括为任意嵌套列表：

library(rrapply)

rrapply(
  lst, 
  f = function(x, .xpos) paste(names(lst)[.xpos[1]], names(lst[[.xpos[1]]])[.xpos[2]], sep = "///")
)
#> $A1
#> $A1$Level2
#> $A1$Level2$Level3
#> [1] "A1///Level2"
#> 
#> 
#> 
#> $B1
#> $B1$Level2
#> $B1$Level2$Level3
#> [1] "B1///Level2"

在这里， .xpos变量在当前正在评估的节点的嵌套列表中计算为 position，因此该信息可用于检索所有祖先节点的名称。

请注意，对于返回的结果，默认值为how = "replace" ，它将保留原始列表结构（在基本rapply中，默认值为how = "unlist" ）。