lapply函数/循环列表R

Question

我知道这个话题在 SO 上出现过几次，但这些例子通常比较复杂，我想对这个简单的情况有一个答案（或一组可能的解决方案）。总的来说，我仍然在围绕 R 和编程。所以在这里我想使用lapply 函数或一个简单的循环到data 列表，这是三个向量列表的列表。

data1 <- list(rnorm(100),rnorm(100),rnorm(100))
data2 <- list(rnorm(100),rnorm(100),rnorm(100))
data3 <- list(rnorm(100),rnorm(100),rnorm(100))

data <- list(data1,data2,data3)

现在，我想获取每个向量的均值列表。结果将是三个元素的列表（列表）。

我只知道如何获取向量列表的结果列表和

for (i in 1:length(data1)){
        means <- lapply(data1,mean)
}

或通过：

lapply(data1,mean)

而且我知道如何使用rapply 获得所有方法：

rapply(data,mean)

问题是 rapply 不维护列表结构。 非常感谢您的帮助和一些提示/解释。

Answer 1

我们可以用嵌套的lapply/sapply遍历列表列表

 lapply(data, sapply, mean)

另外写成

 lapply(data, function(x) sapply(x, mean))

或者如果你需要list结构的输出，可以使用嵌套的lapply

 lapply(data, lapply, mean)

或者使用rapply，我们可以使用参数how来得到我们想要的输出。

  rapply(data, mean, how='list')

如果我们使用for 循环，我们可能需要创建一个对象来存储结果。

  res <- vector('list', length(data))
  for(i in seq_along(data)){
    for(j in seq_along(data[[i]])){
      res[[i]][[j]] <- mean(data[[i]][[j]])
    }
   }