Question

该问题基于另一个问题：get the lengths of element of lists of list in R。

一旦获得列表列表中元素的长度，我们如何获得最大列表的索引？

我的列表d列表如下：

d <- list( list(level = c(1), x = c(10,20,30,40), y = c(55,44,33,22)), 
list(level = c(1), x = c(50,70,23,53, 43), y = c(80,23,54,30, 43)), 
list(level = c(1), x = c(30), y = c(90)))

这是一个视觉表示

[[1]]
[[1]]$level
[1] 1

[[1]]$x
[1] 10 20 30 40

[[1]]$y
[1] 55 44 33 22

[[2]]
[[2]]$level
[1] 1

[[2]]$x
[1] 50 70 23 53 43

[[2]]$y
[1] 80 23 54 30 43

[[3]]
[[3]]$level
[1] 1

[[3]]$x
[1] 30

[[3]]$y
[1] 90

第一个列表列表总共包含9个元素，第二个列表列表总共包含11个元素，第三个列表列表具有3个元素。

我正在寻找一个将返回索引2的命令，因为该命令具有最多的元素列表。

Answer 1

我们遍历list，提取'x'或'y'分量并获取lengths，使用它创建用于过滤lst的逻辑索引

l1 <- lengths(sapply(d, `[`, 'x'))
d[l1== max(l1)]

#[[1]]
#[[1]]$level
#[1] 1

#[[1]]$x
#[1] 50 70 23 53 43

#[[1]]$y
#[1] 80 23 54 30 43

如果必须考虑元素总数，请遍历list（'d'）unlist并获得lengths

l1 <- lengths(lapply(d, unlist))
d[l1 == max(l1)]

获取R中列表列表中最大列表的索引

1 个答案: