如何求和 R 矩阵值

Question

我需要遍历以下矩阵并对每个 position 中的值求和，其中列索引或行索引等于 position 处的值

mtr = matrix(rep(1:16),8,4)

我完全是 R 的初学者，不知道如何解决这个问题

Answer 1

这有效，使用sapply分别检查行和列。 将row_check的转置乘以col_check以查看哪些 TRUE 元素是常见的。 从row_check和col_check的总和中减去重复计数：

mtr = matrix(rep(1:16),8,4)
row_check <- sapply(1:8, function(x) mtr[x, ] == x)
col_check <- sapply(1:4, function(x) mtr[, x] == x)
cross_check <- t(row_check) * col_check
final_sum <- sum(row_check, col_check, -cross_check)
final_sum
[1] 16

mtr
     [,1] [,2] [,3] [,4]
[1,]    1    9    1    9
[2,]    2   10    2   10
[3,]    3   11    3   11
[4,]    4   12    4   12
[5,]    5   13    5   13
[6,]    6   14    6   14
[7,]    7   15    7   15
[8,]    8   16    8   16

目测显示第 1,3 列中的每个元素都符合行索引测试，因此总共有 16 个。 而元素1,1和3,3满足列索引测试，所以一共2个。 但他们重复计算。 你必须解释我是如何误解你的问题的。 如果您希望包括重复计数，则省略交叉检查并设置：

final_sum <- sum(row_check, col_check)