我有十个巨大的列表(每个列表有七个元素,但元素很大),我需要计算这些列表的元素明智的意思。所以如果有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是否有更好的解决方案。 提前谢谢。
答案 0 :(得分:6)
如果您的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))
会给你相同的结果。
答案 1 :(得分:3)
假设您的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
的副本,而是一次检索一个并提取所需的向量。但是如果你有足够的内存来存储所有数据,你也可以负担得起存储副本。