R - résumer une matrice par une autre

Question

J'ai deux matrices. La première contient des valeurs et la seconde contient des noms correspondant à ces valeurs. Je voudrais additionner les valeurs de la première matrice par le nom correspondant dans la deuxième matrice.

Par exemple, étant donné les deux matrices suivantes par exemple:

set.seed(9) 
matrix_names=matrix(sample(paste("name",1:10,sep=""),replace=T),nrow=2,ncol=4); matrix_names 
matrix_values=matrix(sample(1:10,8,replace=T),nrow=2,ncol=4); matrix_values 

Je voudrais produire quelque chose comme:

matrix_names sum(matrix_values) 
    name1    1 
    name2    6 
    name3    15 
    name4    15 
    name5    5 

Toute aide est appréciée.

Answer 1

un <- unique(as.vector(matrix_names)) 
df <- sapply(un, function(x) sum(matrix_values[which(matrix_names == x)])) 
df[order(names(df))] 
name1 name2 name3 name4 name5 
    1  6 15 15  5