访问R中列表列表的相同命名列表元素答案

【问题标题】：Accessing same named list elements of the list of lists in R访问R中列表列表的相同命名列表元素
【发布时间】：2011-05-09 10:37:07
【问题描述】：

我经常遇到需要为不同变量创建大量相似模型的情况。通常我将它们转储到列表中。以下是虚拟代码示例：

modlist <- lapply(1:10,function(l) {
   data <- data.frame(Y=rnorm(10),X=rnorm(10))
   lm(Y~.,data=data)
})

例如，现在很容易适应：

lapply(modlist,predict)

有时我想做的是从列表中提取一个元素。显而易见的方法是

sapply(modlist,function(l)l$rank)

这是我想要的，但我想知道是否有更短的方法来获得相同的结果？

【问题讨论】：

标签： r

【解决方案1】：

可能这些有点简单：

> z <- list(list(a=1, b=2), list(a=3, b=4))
> sapply(z, `[[`, "b")
[1] 2 4
> sapply(z, get, x="b")
[1] 2 4

您可以定义如下函数：

> `%c%` <- function(x, n)sapply(x, `[[`, n)
> z %c% "b"
[1] 2 4

而且这看起来像是$的扩展：

> `%$%` <- function(x, n) sapply(x, `[[`, as.character(as.list(match.call())$n))
> z%$%b
[1] 2 4

【讨论】：

【解决方案2】：

我通常使用kohske way，但这里还有一个技巧：

 sapply(modlist, with, rank)

当你需要更多元素时它更有用，例如：

 sapply(modlist, with, c(rank, df.residual))

我记得我是从 hadley 那里偷来的（我想是从 plyr 文档中偷来的）。

[[ 和 with 解决方案之间的主要区别在于是否缺少元素。 [[ 在缺少元素时返回 NULL。 with 抛出错误除非全局工作区中存在与搜索元素同名的对象。例如：

dah <- 1
lapply(modlist, with, dah)

当modlist 没有任何dah 元素时返回列表。

【讨论】：

谢谢，这确实感觉像@hadley 代码，简单而优雅。
@mpiktas "[[" 和 with 解决方案之间的主要区别是在缺少元素的情况下。 "[[" 在缺少元素时返回 NULL。 with 抛出错误除非全局工作空间中存在与搜索元素同名的对象。所以例如当modlist 没有任何dah 元素时，dah<-1;lapply(modlist, with, dah) 返回列表。
感谢您的补充评论。就我而言，列表中的元素不应缺少任何元素，因此欢迎出错。

【解决方案3】：

使用 Hadley 的新 lowliner 包，您可以为 map() 提供数字索引或元素名称，以优雅地从列表中提取组件。 map() 相当于 lapply() 有一些额外的技巧。

library("lowliner")

l <- list(
  list(a = 1, b = 2),
  list(a = 3, b = 4)
)

map(l, "b")
map(l, 2)

还有一个将结果简化为向量的版本

map_v(l, "a")
map_v(l, 1)

【讨论】：

更新：lowliner 现在是 purrr 包。 map_v 已被弃用。但是您可以使用 map(l, "a") %>% as_vector() 简化为向量