R: sapply / lapply 名称的不同行为

Question

我将一些问题简化为以下玩具代码：

cc<-c("1","2")
ff<-function(x) { list(myname=x)}

aa<-unlist(lapply(cc,ff))
bb<-sapply(cc,ff)

I'd expect aa 和 bb 相同，但是：

> aa
myname myname 
   "1"    "2" 
> bb
$`1.myname`
[1] "1"

$`2.myname`
[1] "2"

不过，我知道 USE.NAMES 参数是 sapply -

1. documented 为 -

USE.NAMES 逻辑；如果 TRUE 并且 X 是字符，则使用 X 作为名称 结果除非它已经有名字。

所以在这种情况下应该没有影响，

1. 在内部，它甚至没有传递给 simple2array，因此也没有传递给最终的 unlist。

这里发生了什么？这可能是 R 问题吗？

---

编辑：经过进一步调查，结果发现差异的根本原因是 sapply 基本上等同于不

unlist(lapply(cc,ff)

而是为了

unlist(lapply(cc, ff), recursive = FALSE)

（这是确切的内部 unlist 调用）。

Answer 1

仔细看这个：

lapply(cc, ff)
#> [[1]]
#> [[1]]$myname
#> [1] "1"
#>
#>
#> [[2]]
#> [[2]]$myname
#> [1] "2"

lapply 的输出本身没有名称。看：

a <- lapply(cc, ff)
names(a)
#> NULL

lapply 的输出实际上是一个未命名列表。 a 的每个元素都是一个命名列表。

names(a[[1]])
#> [1] "myname"
names(a[[2]])
#> [1] "myname"

所以事实上，USE.NAMES 将适用，sapply 将分配cc 的内容作为lapply 输出的名称，其中sapply 是一个瘦包装器，如文档中所述。遵循代码非常简单：

sapply
#> function (X, FUN, ..., simplify = TRUE, USE.NAMES = TRUE) 
#> {
#>     FUN <- match.fun(FUN)
#>     answer <- lapply(X = X, FUN = FUN, ...)
#>     if (USE.NAMES && is.character(X) && is.null(names(answer))) 
#>         names(answer) <- X
#>     if (!isFALSE(simplify) && length(answer)) 
#>         simplify2array(answer, higher = (simplify == "array"))
#>     else answer
#> }
#> <bytecode: 0x036ae7a8>
#> <environment: namespace:base>