R中多个列表的元素明确表示

Question

我有十个巨大的列表（每个列表有七个元素，但元素很大），我需要计算这些列表的元素明智的意思。所以如果有A1，A2，A3，......，A10列表。我需要计算：

mean1 = mean(A1[[1]], A2[[1]], A3[[1]], ...,A10[[1]])
.
.
.
mean7 = mean(A1[[7]], A2[[7]], A3[[7]], ....A10[[7]])

我用for循环完成了它，但我想知道R是否有更好的解决方案。 提前谢谢。

Answer 1

如果您的A[[·]]是以下列表中的向量，

> ( List <- list(A=1:4, B=5:8, C=9:12) )
$A
[1] 1 2 3 4

$B
[1] 5 6 7 8

$C
[1]  9 10 11 12

然后你可以用这种方法来获得平均值：

> rowMeans(simplify2array(List))
[1] 5 6 7 8

rowMeans(as.data.frame(List))会给你相同的结果。

Answer 2

假设您的A是向量列表：

Anames <- paste0("A", 1:10)

# for completeness
for(A in Anames)
    assign(A, lapply(1:7, function(x) rnorm(1000)))

sapply(1:7, function(i)
{
    m <- sapply(Anames, function(A) get(A)[[i]])
    mean(m)
})

这可以避免在内存中构建所有A的副本，而是一次检索一个并提取所需的向量。但是如果你有足够的内存来存储所有数据，你也可以负担得起存储副本。