WOLFRAM

Wolfram 语言与系统参考资料中心

创建一个相关表

相关表是可视化不同度量之间相互关系的一种方法. 在此，相关表使用了七国集团（G7）成员国的通货膨胀率，并采用颜色编码. 相关性水平越高，则色调越暖.

    
获取七国集团（G7）成员：
Wolfram Language code: mem = CountryData["G7"]
获取过去十年的通货膨胀率：
Wolfram Language code: cdata = (QuantityMagnitude /@ CountryData[#, {"InflationRate", {2000, 2010}}]["Values"]&) /@ mem;
算出相关矩阵：
Wolfram Language code: ccm = Correlation[Transpose@cdata];
调整 ImageSize，将 Grid 叠加到 ArrayPlot，创建相关表：
Wolfram Language code: Column[{GraphicsRow[mem, ImageSize -> 395, Frame -> All], Row[{GraphicsColumn[mem, ImageSize -> {50, 395}, Frame -> All], Overlay[{ArrayPlot[ccm, ColorFunction -> (ColorData["TemperatureMap"][(1 + #) / 2]&), Frame -> None, Mesh -> True, PlotRangePadding -> 0, ImageSize -> {395, 395}, ColorFunctionScaling -> False], GraphicsGrid[Map[NumberForm[#, 2]&, ccm, {2}], ImageSize -> {395, 395}]}]}]}, Alignment -> Right, Spacings -> 0]
对系数大于0.4的显著相关的国家，产生一个加权邻接图进行另一种形式的可视化：
Wolfram Language code: WeightedAdjacencyGraph[mem, Round[ccm UnitStep[ccm - .4], .001] /. {1. -> Infinity, 0. -> Infinity}, VertexLabels -> "Name"]//CommunityGraphPlot