刘万祥：如何用EXCEL做南丁格尔玫瑰图（一）

刘万祥：如何⽤EXCEL做南丁格尔玫瑰图（⼀）
【编者按】数据信息图在⽇常⼯作⽣活中得到了越来越⼴泛的应⽤，其图表表现形式也越来越
多样化，南丁格尔玫瑰图⽆疑是⼀种漂亮的展现⽅式，那么如何使⽤EXCEL这种轻量型的⼯具
制作漂亮的南丁格尔玫瑰图呢？有雷达演化制作法，有圆环图演化制作法等。

我们可以把玫瑰
图想象成⼀个很多圈的圆环图，每个扇区⽅向的各序列数据点，填⾊的个数不同，有的多则扇
区半径长，有的少则扇区半径短，这样就形成了扇区半径不等的玫瑰图。

作图步骤
1、做⼀个100圈的圆环图
假设有12个⽅⾯的评价指标需要反映，准备⼀个12⾏*100列的数据区域，取值均为1。

这只需
要⽤⿏标拖拉即可完成。

（实际请准备为12⾏*101列，第101列留待后⽤）
以此为数据源插⼊圆环图，得到⼀个100（101）圈、12个扇区的圆环图，每个圈细到只有⼀
条圆弧线，所以待会完成的图表会⾜够精细。

此时圆环图⾃动适⽤当前主题配⾊，请在这⼀步时切换为⾃⼰想要的颜⾊主题，避免后⾯调
整的⿇烦。

设置圆环图内径为20%，使中间的圆孔变⼩。

2、对各扇区数据点填⾊
每个扇区对应⼀个评价指标，从内往外共有100个数据序列的100个数据点。

现在要根据评价
指标的值，来决定每个数据点是否填⾊。

通过录制宏，可知设置⼀个数据点有⽆填充⾊的代码就是其中红⾊的两⾏：
Sub 宏1()
'
' 宏1 宏 ----通过录制宏，获得对数据点填⾊或不填⾊的代码
ActiveSheet.ChartObjects("mychart").Activate
ActiveChart.SeriesCollection(46).Select
ActiveChart.SeriesCollection(46).Points(1).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
ActiveChart.SeriesCollection(58).Select
ActiveChart.SeriesCollection(58).Points(1).Select
Selection.Format.Fill.Visible = msoFalse
End Sub
那么，编制⼀个12*100的循环，对所有数据点遍历⼀遍：对每个扇区⽅向，判断这100个序列，若序列id⼩于评价指标则填⾊，否则不填⾊。

Sub set_colors()
ActiveSheet.ChartObjects("mychart").Activate
For i = 1 To 12
For j = 1 To 100
ActiveChart.SeriesCollection(j).Select
ActiveChart.SeriesCollection(j).Points(i).Select
If j <= Range("C" & (6 + i)) Then
Selection.Format.Fill.Visible = msoTrue '⼩于等于则显⽰填充⾊ Else
Selection.Format.Fill.Visible = msoFalse '⼤于指标值则⽆填充⾊ End If
Next
Next
End Sub
其中mychart是给圆环图命的名称，⽅法：选中图表，在菜单图表⼯具-->布局-->属性，在图表名称下输⼊mychart即可。

运⾏宏，稍等⽚刻宏完成，原是⼀整个圆的圆环图变成了各扇区⽅向不等长的玫瑰图，图表主体已经完⼯。

将宏赋给⼀个按钮，以便把这个⽂件做成模板，⽅便数据更新时刷新图表。

2003中和2007以上宏略有不同，请见具体范例。

3、给各扇区添加类别名称和值显⽰
将E、F列的数据加⼊图表做饼图。

⽅法：通过选择数据源对话框添加，或选中E、F列的辅助数据，ctrl+c复制，选中图表，ctrl+v粘贴，图表的最外多了⼀圈，选中该圈，图表⼯具-->设计-->更改图表类型为饼图。

继续选中饼图序列（⽆法选择到？请通过图表⼯具-->设计-->图表元素下拉框，第102个序列就是），设置淡灰⾊填充，⽩⾊边框线，这时图表有了扇区分割的底⾊，减少了扇区不等的突兀感。

中⼼部分可以绘制⼀个圆圈覆盖住饼图的分割线。

继续选中饼图序列，添加数据标签显⽰为类别名称，位置在外。

4、给图表⼀个外圈美化
玫瑰图有个完整的外圈会更美观。

在第1步准备数据时如果多准备1列，那么图表将有第101个圈，第2步宏填⾊时不会⽤到它。

现在选中这个序列，设置其⽆填充⾊，但边框线为深灰⾊、3磅，得到⼀个完整的外圈。

⾄此，⽤圆环图制作的玫瑰图已完成，并且做成了模板，只需要填⼊数据、点击按钮，即可获得刷新的玫瑰图。

你觉得这个作图思路如何，相⽐之前的⾯积雷达图⽅法呢，你有何好⽅法，欢迎讨论。

本例涉及知识点：构图思路，录制和修改宏，组合图表类型。

制作难度：★★★★
实⽤性：★★★
图表运⽤
1、范例中设置了12个⽅⾯的评价指标，如果你只需要8个评价指标，也就是只需要8个扇区的玫瑰图，怎么办？很简单，在模板中直接整⾏删除图中第15-18⾏即可，包括指标数据和两个辅助区域的辅助数据。

2、⽤这个⽅法也可以制作那种每个扇区⽅向有多层堆积的玫瑰图，做法：在宏遍历时，每个扇区⽅向的100个数据点，要根据数据源⽤select case来多条件判断，分别填充不同的颜⾊，⽽不仅是有⽆填⾊。

这种情况下数据标签就需要⼿动来添加了，使⽤任何其他软件，也都得⼿动做标签吧。

3、⽤这个⽅法也可以制作那种呈扇⾯形状的玫瑰图，要点是设置⼀个隐藏的占位扇区，其数据源取值=sum(评价指标个数)*2，设置圆环图的第⼀扇区起始⾓度为300度，那么扇⾯的幅度将是从左到右120度。

4、再次重申，个⼈认为，玫瑰图在信息图中运⽤⽐较好，在⽇常商务⼯作中要慎⽤。

(责任编辑：⿊阳)你可能感兴趣的⽂章
Excel学习⽹站⼤全_中国统计⽹原创教程：⽤Excel做
纵向折线图
数据可视化：EXCEL
仪表盘设计
Excel中的⾼级数据分
析（⼆）
Excel：数字代替汉字
信息录⼊飞快
⽆觅关联推荐[?]。