mem=CountryData["G7"]

cdata=(QuantityMagnitude/@CountryData[#,{"InflationRate",{2000,2010}}]["Values"]&)/@mem;

ccm=Correlation[Transpose@cdata];

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]

WeightedAdjacencyGraph[mem,Round[ccm UnitStep[ccm-.4],.001]/.{1.->Infinity,0.->Infinity},VertexLabels->"Name"]//CommunityGraphPlot