在R中具有相同行和列名稱的單元格的總和

Question

我在R中使用table()命令創建了一個矩陣，其中行和列的值不同。

 0 1 2 
    1 1 2 3 
    2 4 5 6 
    3 7 7 8 

如何將具有相同行列名的元素求和？在這個例子中它等於（2 + 6 =）8。

Answer 1

這裏有一個辦法：

# find the values present in both row names and column names 
is <- do.call(intersect, unname(dimnames(x))) 

# calculate the sum 
sum(x[cbind(is, is)]) 

其中x是你的表。

Answer 2

再一個，不言自明：

sum(x[colnames(x)[col(x)] == rownames(x)[row(x)]])