如何解决获取对角线对称的最大位置
我有一个像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中,这是使用新的溢出公式自动实现的。
适用于数组以及范围。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。