R语言实现矩阵除指定对角线单元格外元素乘以15%的方法

你可以通过以下两种常用方式实现需求，两种方式均兼容任意维度的方阵，不需要手动指定对角线位置：

方法1：先整体运算再还原对角线（代码最简洁） #

# 保存原矩阵对角线的原始值
original_diag <- diag(cor.mat)
# 所有元素统一乘以15%
cor.mat_res <- cor.mat * 0.15
# 还原对角线为原始值
diag(cor.mat_res) <- original_diag

方法2：逻辑索引直接修改非对角线元素（不需要额外生成新矩阵） #

# 生成非对角线位置的逻辑掩码：行号不等于列号的位置即为非对角线
non_diag <- row(cor.mat) != col(cor.mat)
# 直接对非对角线元素执行乘15%的操作
cor.mat[non_diag] <- cor.mat[non_diag] * 0.15

示例验证 #

你可以用下面的代码构造你提供的示例矩阵，运行上述逻辑查看效果：

# 构造示例相关矩阵
cor.mat <- matrix(
  c(1.0000000, 0.1938155, 0.1738809, 0.2465276,
    0.1938155, 1.0000000, 0.4045694, 0.2729958,
    0.1738809, 0.4045694, 1.0000000, 0.3340883,
    0.2465276, 0.2729958, 0.3340883, 1.0000000),
  nrow = 4, ncol = 4, byrow = TRUE
)

内容的提问来源于stack exchange，提问作者Chell