Элемент мудрый средний из нескольких списков в 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]]) 

Я сделал это с цикл, но я хотел бы знать, если есть лучшее решение, предоставляемое R. Спасибо заранее.

Answer 1

Если предположить, что ваши A s списки векторов:

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 с в памяти, вместо извлечения их по одному и извлекая нужный вектор. Но если у вас достаточно памяти для хранения всех этих данных, вы, вероятно, можете позволить себе также сохранить копию.

Answer 2

Если 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)) даст вам тот же результат.