R - 总结一个矩阵

Question

我有两个矩阵。第一个包含值，第二个包含与这些值相对应的名称。我想将第一个矩阵中的值与第二个矩阵中的相应名称相加。

例如，给出以下两个例子矩阵：

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 

我想产生类似：

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

任何帮助表示赞赏。

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