在这个 sapply 示例中寻找什么 `[[`？

Question

对此How to use `[[` and `$` as a function? 问题的跟进：我开始使用原始设置进行一些尝试（为简单起见，将大小从 10000 减少到 3）

JSON <- rep(list(x,y),3)
x <- list(a=1, b=1)
y <- list(a=1)
JSON <- rep(list(x,y),3)
sapply(JSON, "[[", "a")
[1] 1 1 1 1 1 1
sapply(JSON,"[[",'b')
[[1]]
[1] 1

[[2]]
NULL

[[3]]
[1] 1

[[4]]
NULL

[[5]]
[1] 1

[[6]]
NULL

sapply(JSON,'[[',1)
[1] 1 1 1 1 1 1
sapply(JSON,'[[',2)
Error in FUN(X[[2L]], ...) : subscript out of bounds

我想我明白了——搜索“b”不同于要求存在第二个元素。但随后，我创建了一个更深层次的列表：

NOSJ<-rep(list(JSON),3)

sapply(NOSJ,'[[',1)
  [,1] [,2] [,3]
a 1    1    1   
b 1    1    1   
sapply(NOSJ,'[[',2)
$a
[1] 1

$a
[1] 1

$a
[1] 1

现在我的头很痛。有人可以扩展[[（或其sapply 方法）在这里做什么吗？

Answer 1

您可以将 sapply 和 lapply 视为一个 for 循环，将 seq_along(NOSJ) 作为索引向量进行操作。

 for( i in seq_along(NOSJ) NOSJ[[i]]  .... then use "[[" with the 3rd argument 

所以第一个和第二个结果是：

> NOSJ[[1]][[1]]
$a
[1] 1

$b
[1] 1

> NOSJ[[2]][[1]]
$a
[1] 1

$b
[1] 1

sapply 和lapply 之间的区别在于sapply 尝试使用simply2array 返回一个矩阵或数组，如果返回值的维度都相同（因为它们在这种情况下使用1、3 或 5 作为第三个参数。老实说，我不知道为什么使用 2、4 或 6 作为第三个参数不会返回原子向量。我认为应该这样做。

Answer 2

sapply(NOSJ,'[[',1) 返回由sapply 从NOSJ 传递给[[ 的每个列表的第一个列表元素。试试……

sapply( NOSJ , length )
[1] 6 6 6

有道理吗？所以[[ 在二级列表上运行，其中第一个元素 always 包含 only a 和 b 因此可以强制转换为矩阵。 6 个列表中的第二个元素，always 包含 only a。