热力型数据地图〔HeatMap〕做法详解.docVIP

标签： 数据地图? 气泡地图? 中国地图? Excel图表? （文 / ExcelPro的图表博客） Excel版中国数据地图工具 》介绍了一个用excel做中国数据地图的办法，得到很多朋友的喜欢，并且都希望能详细了解制作方法，以便进一步DIY当地的数据地图。最近抽空整理了做法详解，供大家参考。因制作过程还是有些复杂的，如果有叙述不够清晰的地方，欢迎提出。 －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ 作图思路：我们为每个区域准备一个自选图形，按照其数值大小，根据分档阀值、颜色图例，对自选图形填充以相应的颜色，完成一个热力地图。 ? 地图图形的准备 首先，在网上找到一个矢量格式的地图文件。所谓矢量格式，是使用直线和曲线来描述图形，这些图形的元素是一些点、线、矩形、多边形、圆和弧线等等，其文件后缀名一般为.WMF、.AI、.EPS、.CDR等。Excel可以读取.WMF格式的文件，其他格式的一般需要专门的软件打开。导入Excel后，该地图可以打散为一个个的自选图形，每个自选图形对应一个区域。 如果你要做比较小的地区的数据地图，譬如武汉市分为江汉区、武昌区等，网上可能无法找到相应的矢量地图，这时我们可以自行绘制。 ●????????? 找到一个当地的地图图片，一般JPG格式的地图还是很好找的，导入Excel。 ●????????? 在放大视图下，使用绘图工具栏-自选图形-线条-自由曲线，按照地图轮廓进行勾描，每个区勾描成一个封闭小块，最后形成一个全市分区的自选图形地图。这个细活需要花一点功夫，但一次完成长期使用，还是值得的。 地图模型的构建 有了地图图形后，我们开始制作地图的引擎模型。 假设我们的数据源如下，例子文件中D列数据为各省2008年GDP总值。 1、为自选图形命名。 我们用每个省的拼音字母为其图形命名。如选中湖北省的图形，在左上角的名称框中输入湖北的拼音名hubei，回车，则这个图形被命名为hubei，后面会用这个名称来引用这个图形。逐一完成所有区域图形的命名。 ? 很多公司需要按大区进行分析，如华东区、华南区等等，这时我们可以将某几个省的图形组合起来之后再命名。这时候你的数据源也要按华东区、华南区等进行组织。简言之，将大区作为一个区。 2、设置数据分档阀值和图例。 假设我们要把各省GDP数据分为5个层级进行分档填色，在I列设置填色样式，J列填入文字标签，注意I8：J12区域在后面将被拍照引用为图例。在L列设置分档阀值，填入J列标签的下限，M列是为引用准备的名称。 ? 注意在设置分档间距、颜色深浅时，二者应该呈线性比例变化。推荐颜色的的设置方式是使用同一色调的不同饱和度。当有负数时，可从一个色调渐变到另一个色调。 3、为模型定义名称和公式。 RegData =Datamap!$C$8:$D$38 源数据区域 ActReg =Datamap!$K$17 临时存放“当前区域”的拼音名，如hubei ActRegValue =Datamap!$K$18 临时存放“当前区域”的指标值，如8633 =VLOOKUP(ActReg,RegData,2,FALSE) ActRegCode =Datamap!$K$19 临时存放“当前区域”的颜色代码，如color4 =VLOOKUP(ActRegValue,L8:M12,2,TRUE) color1 =Datamap!$I$8 填色代码1，指向I8 color2 =Datamap!$I$9 填色代码2，指向I9 color3 =Datamap!$I$10 填色代码3，指向I10 color4 =Datamap!$I$11 填色代码4，指向I11 color5 =Datamap!$I$12 填色代码5，指向I12 4、制作填色按钮。 绘制一个按钮，为其指定如下宏代码。 ――――――――――――――――――――――― For i = 8 To 38? 为数据源的起始和结束行号，根据区域的多少来定 Range(ActReg).Value = Range(datamap!C i).Value ’将C列的拼音名填入“当前区域”，即K17 ??? ActiveSheet.Shapes(Range(ActReg).Value).Select ??? ’选中“当前区域”对应的图形 Selection.ShapeRange.Fill.ForeColor.RGB =?Range(Range(ActRegCode).Value).Interior.Color ??? ’将选中的图形填充以“当前区域”的颜色代码所指向的单元格的填充样式 Next i ――――――――――――――――――――――― 如代码中的注释所说明，这段宏对每一个区域，将其拼音名填