Cách tính giá trị trung bình của vectơ từ nhiều danh sách?

Question

Tôi có một số danh sách chứa vectơ và tôi muốn lấy một danh sách duy nhất, các phần tử nào là các vectơ trung bình của các vectơ của các danh sách ban đầu.

Ví dụ: Hai danh sách ban đầu

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

Và tôi muốn để có được

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

Tôi đã thử với lapply và llply, nhưng tôi luôn luôn kết thúc việc thu thập giá trị trung bình của vector của mỗi danh sách .

Answer 1

Bạn có thể sử dụng Map() đến cbind() các vectơ cùng nhau, sau đó chạy rowMeans() trên danh sách kết quả.

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

Hoặc theo cách khác với lapply(Map(rbind, lt1, lt2), colMeans)