如何将2个矩阵组合成一个图

Question

我有2个对称矩阵（矩阵的数学含义），一个位置之间的距离（位置用4位数字编码：2030,2059,2095 ...），看起来像这样的：
2030 2059 2095 ...
2030 NA 59328 68464
2059 59328 NA 37196
2095 68464 37196 NA
...

，另一个位置之间的相关性：
2030 2059 2095...
2030 1.0000000 0.4651804 0.6185849
2059 0.4651804 1.0000000 0.4428746
2095 0.6185849 0.4428746 1.0000000
...

我需要这2个矩阵中的相互关系与距离的情节相结合，但不知道如何做到这一点的R和考虑到我有超过80个位置，我不想手动完成它！有谁知道有办法做到这一点？

谢谢！

Answer 1

如果你只是想绘制的相关性作为距离的函数，而无需对您的情节强加一个特定的结构，你可以提取各个矩阵的下半部分，例如

x <- matrix(rnorm(1000), nrow=20) 
d.mat <- as.matrix(dist(x)) 
c.mat <- cor(t(x)) 
plot(d.mat[lower.tri(d.mat)], c.mat[lower.tri(c.mat)]) 

Answer 2

假设您的矩阵存储在m1和m2，做这项工作：

dat <- data.frame(a=as.vector(m1[upper.tri(m1)]), 
      b=as.vector(m2[upper.tri(m2)])) 
plot(dat$a,dat$b)