將 R 中矩陣的下三角和上三角相加

Question

我有一個矩陣，其中 row_names 和 col_names 是相同的。 填充矩陣的值不是對稱的（即上三角和下三角不同）。 對角線用 0 填充。

我想將上三角與下三角相加。

我不介意 output 是什么格式：要么是 rownames-colnames-newvalues 的 data.table，要么是三角矩陣（而不是正方形）。

附圖顯示列名和行名是如何相等的。 最終我想要一個顯示例如 M10/M10.09 = 36 + 36 = 72 的矩陣

Answer 1

使用t()轉置矩陣，然后添加到原始矩陣。

其他有用的矩陣函數是upper.tri() 、 lower.tri()和diag() 。 例如，用零填充上三角。

m<-matrix(c(0,36,3,36,0,4,1,2,0), ncol=3)

m
     [,1] [,2] [,3]
[1,]    0   36    1
[2,]   36    0    2
[3,]    3    4    0

m2<-m+t(m)

m2[upper.tri(m2)]<-0

m2
     [,1] [,2] [,3]
[1,]    0    0    0
[2,]   72    0    0
[3,]    4    6    0

Answer 2

如果你想要一個矩陣 output， M.Viking 的答案有你需要的一切，這就是你得到的方式

rownames-colnames-newvalues 的 data.table

m<-matrix(c(0,36,3,36,0,4,1,2,0), ncol=3)
msum <- m + t(m)
msum[upper.tri(msum, diag = TRUE)] <- NA                # set diag and upper tri to NA
mdf <- as.data.frame.table(msum)                        # turn into a data frame
colnames(mdf) <- c("rownames", "colnames", "newvalues") # name df columns
mdf <- mdf[!is.na(mdf$newvalues),]                      # drop all those NA rows
mdf

  rownames colnames newvalues
2        B        A        72
3        C        A         4
6        C        B         6