R中矩阵中某些单元格的乘数

【问题标题】：Multiplying factor to certain cells in matrix in RR中矩阵中某些单元格的乘数
【发布时间】：2021-12-29 11:34:03
【问题描述】：

我有以下相关矩阵，cor.mat 下面。我想将除单元格 [1,1] [2,2] [3,3] [4,4] 之外的所有数字乘以 15%。有没有人有一个很好的代码来在 R 中实现这个？

       1         2         3        4
1  1.0000000 0.1938155 0.1738809 0.2465276
2  0.1938155 1.0000000 0.4045694 0.2729958
3  0.1738809 0.4045694 1.0000000 0.3340883
4  0.2465276 0.2729958 0.3340883 1.0000000

【问题讨论】：

标签： r matrix

【解决方案1】：

您可以使用 diag 返回矩阵的对角线

matrix = matrix*0.15
diag(matrix) = 1

【讨论】：

【解决方案2】：

创建一个排除 diag 的逻辑矩阵并进行乘法

i1 <- row(m1) != col(m1)
m1[i1] <- m1[i1] * 0.15

【讨论】：