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

Question

我有 2 个对称矩阵（矩阵的数学意义），其中一个具有位置之间的距离（位置用 4 位数字编码：2030、2059、2095...），如下所示：
2030 2059 2095 ...
2030 北美 59328 68464
2059 59328 北美 37196
2095 68464 37196 不适用
...

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

我需要将这两个矩阵组合成相关性与距离的关系图，但不知道如何在 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)