Wie berechnet man den Mittelwert von Vektoren aus mehreren Listen?

Question

Ich habe mehrere Listen mit Vektoren und ich möchte eine einzige Liste erhalten, welche Elemente die Mittelvektoren der Vektoren der Ausgangslisten sind.

Beispiel: Zwei Anfangslisten

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

Und ich würde

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

Ich habe versucht, mit lapply und llply erhalten möchte, aber ich habe immer den Mittelwert des Vektors jeder Liste zu erhalten am Ende .

Answer 1

Sie könnten Map() bis cbind() die Vektoren zusammen verwenden, dann rowMeans() auf der resultierenden Liste ausführen.

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

Oder andersrum mit lapply(Map(rbind, lt1, lt2), colMeans)