发布时间：2022年04月15日 04:42:12分享人:光着脚丫子来源:互联网30
圆环图做南丁格尔玫瑰图
文/ExcelPro的图表博客 本博曾介绍过多种形式的玫瑰图做法，见日志1、2、3，都是使用面积型雷达图来实现。今天介绍另外一种作图思路，使用圆环图。http://excelpro.blog.sohu.com/164902444.htmlhttp://excelpro.blog.sohu.com/176535343.htmlhttp://excelpro.blog.sohu.com/167000317.html作图思路 我们可以把玫瑰图想象成一个很多圈的圆环图，每个扇区方向的各序列数据点，填色的个数不同，有的多则扇区半径长，有的少则扇区半径短，这样就形成了扇区半径不等的玫瑰图。作图步骤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 = msoFalseEnd Sub 那么，编制一个12*100的循环，对所有数据点遍历一遍：对每个扇区方向，判断这100个序列，若序列id小于评价指标则填色，否则不填色。Sub set_colors()ActiveSheet.ChartObjects("mychart").ActivateFor i = 1 To 12For 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 '小于等于则显示填充色 Selection.Format.Fill.Visible = msoFalse '大于指标值则无填充色 End IfEnd 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个数据点，要根据数据源用selectcase来多条件判断，分别填充不同的颜色，而不仅是有无填色。 这种情况下数据标签就需要手动来添加了，使用任何其他软件，也都得手动做标签吧。 3、用这个方法也可以制作那种呈扇面形状的玫瑰图，要点是设置一个隐藏的占位扇区，其数据源取值=sum(评价指标个数)*2，设置圆环图的第一扇区起始角度为300度，那么扇面的幅度将是从左到右120度。 4、再次重申，个人认为，玫瑰图在信息图中运用比较好，在日常商务工作中要慎用。范例下载微盘地址：Hi，推荐文件给你 "圆环图做南丁格尔玫瑰图（byExcelPro图表博客）.xlsm"http://vdisk.weibo.com/s/zB1bB想学习专业有效的Excel商务图表方法？下面这两本书可以帮助你：《Excel图表之道》：京东：http://t.cn/hejun9亚马逊：http://t.cn/hb41j8当当：http://t.cn/zO6qt6N《用地图说话》： 京东：http://t.cn/zOzeLPD亚马逊：http://t.cn/SXnCQH当当：http://t.cn/SXnOMW
爱华网本文地址 » http://www.413yy.cn/a/25101015/263416.html
更多阅读
大年三十这天，本地都有祭祖的习俗。这天中午，大家一起吃完团圆饭后，我独自一人，带着纸钱前往小叔子的坟前。慢慢点燃张张纸钱，心中默默地祈祷着，祝福着，希望小叔子在天堂一切顺利，平安幸福。飘飞的纸灰，捎走了我的祈愿。我也希望小叔子的天堂
假体隆胸手术过程是怎么做的呢?如今假体隆胸手术已经是一项十分普遍的整形美容手术了，已有不少女性朋友们加入了假体隆胸手术的队列，也有不少正跃跃欲试着，在这里将简单介绍一下假体隆胸手术过程，希望能对你有所帮助。假体隆胸手术全过
喜欢从上往下织毛衣，对于新手和懒人来说有太多的简单和方便。为自己织的第一件毛衣。领肩部分借鉴了下田直子的一款毛衣样式，原作是从下往上收针，我逆向修改为从上往下加针。起针90针。领肩部分加针到合适的针数后，分出前片，后片和袖子
圆环人生中的第一篇同人文献给了看韩剧以来最爱的“男二号”——尹智厚，也献给三版《花样男子》中第一次喜欢的“类”这个角色，因为尹智厚已经不是以前的那个“类”了。电视剧已经快要结束了，这时候才写或许有点晚了，可是不写出来怕自
圆环面积的“极限”渗透计算法浙江省余姚市富巷新村小学 宋月娣小学数学第11册第5单元《圆的周长和面积》分为：圆的认识，扇形的认识，圆的周长，圆的面积四部分。课本在讲解圆的面积计算公式时，采用了把圆分成若干等份后，拼补成一个近似的长
爱华网