Question

很少使用的rapply函数应该是解决许多问题的完美解决方案（例如this one）。但是，它使用户编写的函数f无法知道它在树中的位置。

有没有办法在f来电中将嵌套列表中的元素名称传递给rapply？不幸的是，rapply很快就会调用.Internal。

Answer 1

我最近在任意深度的嵌套列表上挣扎。最终，在我的案例中，我做出了或多或少可接受的决定。这不是你问题的直接答案（没有rapply用法），但似乎解决了同样的问题。我希望它可以提供一些帮助。

我没有尝试访问rapply中的列表元素名称，而是生成了名称向量，并查询了元素。

# Sample list with depth of 3
mylist <- list(a=-1, b=list(A=1,B=2), c=list(C=3,D=4, E=list(F=5,G=6)))

在我的情况下，生成名称向量是一个棘手的问题。具体而言，列表元素的名称应该是安全的，即没有.符号。

list.names <- strsplit(names(unlist(mylist)), split=".", fixed=TRUE)
node.names <- sapply(list.names, function(x) paste(x, collapse="$"))
node.names <- paste("mylist", node.names, sep="$")
node.names

[1] "mylist$a"     "mylist$b$A"   "mylist$b$B"   "mylist$c$C"   "mylist$c$D"   "mylist$c$E$F"
[7] "mylist$c$E$G"

下一步是按字符串名称访问list元素。我发现没有比使用临时文件更好的了。

f <- function(x){
  fname <- tempfile()
  cat(x, file=fname)
  source(fname)$value
}

此处f只返回x的值，其中x是一个全名为list元素的字符串。

最后，我们可以用伪递归的方式查询列表。

sapply(node.names, f)

Answer 2

参考问题Find the indices of an element in a nested list?，您可以写：

rappply <- function(x, f) {
  setNames(lapply(seq_along(x), function(i) {
    if (!is.list(x[[i]])) f(x[[i]], .name = names(x)[i])
    else rappply(x[[i]], f)
  }), names(x)) 
}

然后，

> mylist <- list(a = 1, b = list(A = 1, B = 2), c = list(C = 1, D = 3))
> 
> rappply(mylist, function(x, ..., .name) {
+   switch(.name, "a" = 1, "C" = 5, x)
+ })
$a
[1] 1

$b
$b$A
[1] 1

$b$B
[1] 2


$c
$c$C
[1] 5

$c$D
[1] 3

Answer 3

更新2020年6月：rrapply程序包（基础rrapply的扩展版本）中的rapply函数可以通过定义.xname函数中的参数f。在f内部，.xname变量将求值为嵌套列表中元素的名称：

library(rrapply)

L <- list(a = 1, b = list(A = 1, B = 2), c = list(C = 1, D = 3))

rrapply(L, f = function(x, .xname) paste(.xname, x, sep = " = "))
#> $a
#> [1] "a = 1"
#> 
#> $b
#> $b$A
#> [1] "A = 1"
#> 
#> $b$B
#> [1] "B = 2"
#> 
#> 
#> $c
#> $c$C
#> [1] "C = 1"
#> 
#> $c$D
#> [1] "D = 3"

在rapply中获取元素名称

3 个答案: