列表子集的子集

Question

在R中，我有一个列表，由12个子列表组成，每个子列表本身由5个子发布者组成，如下所示

列表和子列表

在本例中，我想为每个子列表提取信息“MSD”。

我可以提取每种使用方法的级别“统计信息”

lapply(letters, '[[', "statistics")

这很有效。它给了我子列表“statistics”中包含的所有值，但是，对于每个列表，我想向下一级，因为我对其他数据（如MSerror、Df等）不感兴趣。。。。。只有MSD

我试过了

lapply(letters, '[[', "statistics", "MSD")

还有许多人没有成功。

如果我只想要第一个子列表，它将与

letters[[1]][["statistics"]][["MSD"]]

但是接下来，我必须做：

letters[[1]][["statistics"]][["MSD"]]
letters[[2]][["statistics"]][["MSD"]]
letters[[3]][["statistics"]][["MSD"]]

这是我想要避免的一个时间问题。

谢谢你的帮助。

Answer 1

一个选项是嵌套lappy：

lapply(lapply(letters, '[[', "statistics"),`[[`,"MSD")

与@akrun的方法相比，这种方法的好处是，即使列表中的某些元素没有$statistics$MSD项，它也会起作用，这在本例中可能并不相关。

Answer 2

我们可以使用lambda/匿名函数

lapply(letters, function(x) x[["statistics"]][["MSD"]])

此函数的好处是，如果有多个嵌套元素，则不必调用nlappy，而且应该更快

或者使用map

library(tidyverse)
map(letters, ~ .x[["statistics"]][["MSD"]])

此外，关于声称如果列表中没有某些元素，这将不起作用，

set.seed(24)
lst1 <- replicate(3,  list(statistics = list(MSD = rnorm(20))))
names(lst1)[2] <- "Hello"

这是真的，它不会工作。然而，它也不适用于声称有效的解决方案。