从互相关到 R 中的列格式

Question

我有以下互相关矩阵：

df=

我想把它变成下面的格式：

A B 7
A C 1
B C 9

任何简单的 R 代码都可以做这样的事情？

Answer 1

不是直接的方法，而是基础 R 中的一个选项：

mat[upper.tri(mat, diag = TRUE)] <- NA
tmp <- which(!is.na(mat), arr.ind = TRUE)
data.frame(col = colnames(mat)[tmp[, 2]], row = rownames(tmp), val = mat[tmp])

#  col row val
#1   A   B   7
#2   A   C   1
#3   B   C   9

数据

mat <- structure(c(1L, 7L, 1L, 7L, 1L, 9L, 1L, 9L, 1L), .Dim = c(3L, 
3L), .Dimnames = list(c("A", "B", "C"), c("A", "B", "C")))

Answer 2

另一个基础 R 选项

inds <- which(col(mat) < row(mat), arr.ind = TRUE)
data.frame(
  col = colnames(mat)[inds[, "col"]],
  row = rownames(mat)[inds[, "row"]],
  val = mat[inds]
)

给予

  col row val
1   A   B   7
2   A   C   1
3   B   C   9

从互相关到 R 中的列格式

From cross correlation to column format in R

r

cross-correlation