WOLFRAM

Wolfram言語 ＆ システムドキュメントセンター

相関表を作成する

相関表は，さまざまな測定値間の相関関係を可視化する一つの方法である．以下の相関表は，先進7か国(G7)のメンバーインフレ率を使い，より高いレベルの相関関係をより暖かい色で表す形で色分けされてもいる．

G7のメンバーを得る：
Wolfram Language code: mem = CountryData["G7"]
過去10年間のインフレ率を得る：
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