r - 从列表列表中选择子列表

Question

我想从列表列表中删除子列表。例如，假设我有一个像这样结构的大列表

mybiglist <- vector('list', 5)
names(mybiglist) <- paste0('item:', seq_along(mybiglist))
for(i in seq_along(mybiglist)){
  a <- rbinom(8, 5, i/10)
  b <- sum(c)

  tmp <- list(binomial = a, total = b)
  mybiglist[[i]] <- tmp
}

我想找到总数最高的子列表(整个项目:x)并将该列表保存为新对象。

实现这一目标的有效方法是什么？如果可能的话，我不想转换为不同的对象类型。

Answer 1

使用:

mybiglist[[which.max(sapply(mybiglist, `[[`, 'total'))]]

给出:

$binomial
[1] 4 2 2 5 5 1 3 2

$total
[1] 24

将其分配给新对象也会为您提供一个新列表:

> new <- mybiglist[[which.max(sapply(mybiglist, `[[`, 'total'))]]
> class(new)
[1] "list"