尝试模拟最近很火的一张图

悠悠的炊烟

以上图表可分为用雷达图和环形图做的，雷达图在做图数据源的构建上比较复杂（考验函数功力吧），环形图则需要用VBA来配色，无论是哪种都比较复杂，不建议推广，图表控除外。
未上附件只为给其他图表控留下自虐余地，抗击新冠长路漫漫，没有自虐的题材如何度过。
图表虐我千百遍，我待图表如初恋

悠悠的炊烟

micch 发表于 2020-3-8 21:54
我觉得如果用Excel做，需要对数据进行比例缩放生成一组做图数据，来实现图中的比例效果，然后真实数据做标 ...

标签我还未解决，你呢？

micch

标签太麻烦，前几个太密集了，只会手工调整，加一个系列做雷达图，直接添加标签即可，调整雷达轴的数值调整位置，单独调整只好手工了，用代码我不会。

micch

一片三角形一个系列，每个系列添加标签还需要配一个系列。

我模拟的是30个国家，这样需要60个系列，前30个是扇形每个系列13个数据，后30个每个系列只有一个数据，后30个系列放次坐标，添加标签，不用代码太费功夫。
想了想，其实不需要两倍，在玫瑰图的基础上，增加一个系列做标签就可以了。

悠悠的炊烟

的确费劲，等哪天闲得发慌时再琢磨琢磨

车田小民

仿一个，大致是这个样子了

micch

标签和颜色是个麻烦，做个最简单的样子出来，两个系列就可以了，一个做扇形，一个做标签


抽空琢磨了下，改改



FG两列插入雷达面积图，系列2添加标签，设置标签选择单元格内容E列。生成EFG数据和设置标签角度代码

1. Sub test()
   
2.     ar = [a2:c31]
   
3.     Dim arr(1 To 360, 1 To 3)
   
4.     For i = 1 To 360
   
5.         k = Int(i / 12 + 11 / 12)
   
6.         If i Mod 12 = 6 Then arr(i, 1) = ar(k, 1) & " " & ar(k, 2): arr(i, 3) = ar(k, 3) * IIf(i > 200, 0.5, 0.7)
   
7.         If i Mod 12 Then arr(i, 2) = ar(k, 3) Else arr(i, 2) = 5
   
8.     Next
   
9.     [e2].Resize(360, 3) = arr
   
10.     Set cht = Sheet1.ChartObjects(1)
    
11.     cht.Chart.SeriesCollection(1).Interior.Color = 22222
    
12.     With cht.Chart.FullSeriesCollection(2)
    
13.         .HasDataLabels = True
    
14.         .DataLabels.NumberFormat = ";;;"
    
15.         For i = 6 To 354 Step 6
    
16.          .Points(i).DataLabel.Orientation = ((6 - i) Mod 180 + 90)
    
17.          Next
    
18.     End With
    
19. End Sub

复制代码

沉默00000

这实际是一个堆积玫瑰图，而且数据得比例还是不规范得。

车田小民

悠悠的炊烟 发表于 2020-3-8 22:38
标签我还未解决，你呢？

标签用散点来模拟

悠悠的炊烟

车田小民 发表于 2020-3-10 15:29
标签用散点来模拟

高，文字顺角度排版是如何实现的？