Mathematica数据处理(2)

Mathematica数据处理(2)

这一次想讲一下Mathematica对于数据可视化的应用，一个小小的例子，这次会使用气泡图

我们平时对于 二维数据的可视化一般采取画散点图，那么对于三维的数据，我们应该采取什么办法把他表示出来呢

二维数据如：（年份，该年份经济）

可以画出如下的图：(数据是我自己随便写的，不要在意)

但是对于三维的数据来说，如何能直观的表示出来呢

例如，我们已知10个城市的如下的数据

(该市人口，该市城镇人口，该市的传染病A的人数)

那么我们如何能把这些数据在图上只管的表述出来呢

我们引入 气泡图

画出来的样子是下面这样额

直接贴代码：

data1 = Table[RandomReal[100000], 10];

(*随机生成0--100000的随机数来模拟城市总人口*)
data2 = Table[RandomReal[1], 10];

(*随机生成0--1的数字，表示城镇人口所占比例*)
data3 = Table[RandomReal[1], 10];

(*表示传染病率*)
data = {data1, data2, data3};
data4 = data[[All, #]] & /@ Partition[Range[10], 1]

(*每次取出一列，组成一个新的数组*)
data5 = {};
For[i = 1, i <= 10, i++,
 AppendTo[data5, Flatten[data4[[i]]]]
 ]

*上面都是在处理数据，具体可以看前一篇文章*)
BubbleChart[data5, ChartStyle -> ColorData[3, "ColorList"]]

(*最后的画图只有一句话 data5是数据*)

(*画出的是彩色的是由 ChartStyle->ColorData[3,"ColorList"]来控制的*)

2016/8/8

以上，所有。