获取对角线对称的最大位置

问题描述

我有一个像list1的矩阵，我想在对角对称的两个位置上获得最大值，并得到新的矩阵（list2）。我该如何运行R或Excel？ 列表1

    A   B   C   D
A   11  9   11  11
B   4   3   4   4
C   14  8   15  12
D   9   6   9   8

list2

    A   B   C   D
A   11  9   14  11
B   9   3   8   6
C   14  8   15  12
D   11  6   12  8

解决方法

您可以获取矩阵和转置矩阵的平行最大值：

pmax(M,t(M))

     [,1] [,2] [,3] [,4]
[1,]   11    9   14   11
[2,]    9    3    8    6
[3,]   14    8   15   12
[4,]   11    6   12    8

,

在R中，如果您有矩阵

mm <- matrix(
  c(11L,4L,14L,9L,3L,8L,6L,11L,15L,12L,8L),nrow=4,dimnames = list(c("A","B","C","D"),c("A","D"))
)

然后您可以编写一个函数来比较对称位置

max_sym_pos <- function(m) {
  vupper <- m[upper.tri(m)]
  vlower <- m[lower.tri(m)]
  vmax <- pmax(vupper,vlower)
  m[upper.tri(m)] <- vmax
  m[lower.tri(m)] <- vmax
  m
}
max_sym_pos(mm)
#    A  B  C  D
# A 11  9 14 11
# B  9  3  9  6
# C 14 11 15 12
# D  9  6 12  8

,

在Excel中，以下数组公式完成相同的工作：

=IF(A1:D4>TRANSPOSE(A1:D4),A1:D4,TRANSPOSE(A1:D4))

在旧版本的Excel中，必须使用 Ctrl Shift Enter 输入

。

在Excel 2019中，我必须在输入公式之前选择G1至J4。在O365中，这是使用新的溢出公式自动实现的。

适用于数组以及范围。