距离矩阵可视化|Mathematica绘制可视化矩阵

这篇文章我们讲一下关于矩阵可视化的做法。这个其实是经常会用到的（所以我把她记录在Mathematica绘图里面，可以经常去查阅）。比如说我们在求了相关系数矩阵后，我们可以知道越接近1是相关度越大的，但是一旦矩阵比较大的时候，想看清楚是不方便的，所以我们才会有矩阵可视化。

矩阵可视化是指我们通过颜色的深浅等来区分数字，从而使得矩阵更加直观。下面我们来看一下是如何实现的。

代码介绍

我们可以通过下面的代码来实现距离矩阵可视化的操作

matPlot[dm_, capitals_] :=

Module[{},

MatrixPlot[dm,

FrameTicks -> {{Transpose[{Range[Length@capitals], capitals}],

None}, {Transpose[{Range[Length@capitals],

Rotate[#, \[Pi]/2] & /@ capitals}], None}}, Mesh -> True,

ColorFunction -> "BlueGreenYellow",

PlotLegends -> Placed[Automatic, Above],

PlotLabel -> "Distance based on temperature", ImageSize -> Large]

]

具体使用方法接着往下看。

使用介绍

首先我们生成矩阵和对应的标签，为了方便演示，我就使用下面的来生成。

(*dm是矩阵,capitals是坐标对应的标签*)

dm = Table[i + j, {i, 1, 7}, {j, 1, 7}];

cap = Table[Style[ToString[i] <> "Love", 20], {i, 1, 7}];

接着将矩阵和标签带入上面的函数即可。

matPlot[dm, cap]

于是我们就得到了下面的矩阵可视化的图。