Come calcolare la media di vettori da più elenchi?

Question

Ho diverse liste contenenti vettori e vorrei ottenere una lista singola, quali elementi sono i vettori medi dei vettori delle liste iniziali.

Esempio: due liste iniziali

lt1 <- list(a = c(1,2,3), b = c(2,5,10)) 
lt2 <- list(a = c(3,4,5), b = c(4,5,2)) 

e vorrei ottenere

lt12 <- list(a = c(2,3,4), b = c(3,5,6)) 

ho provato con lapply e llply, ma finisco sempre per ottenere la media del vettore di ogni lista .

Answer 1

È possibile utilizzare Map() a cbind() i vettori insieme, quindi eseguire rowMeans() nell'elenco risultante.

lapply(Map(cbind, lt1, lt2), rowMeans) 
# $a 
# [1] 2 3 4 
# 
# $b 
# [1] 3 5 6 

O il contrario con lapply(Map(rbind, lt1, lt2), colMeans)