聚类喷泉爆发
可视化老忠实喷泉喷发的属性.
In[1]:=
![Click for copyable input](assets.zh/cluster-geyser-eruptions/In_31.png)
eruptions = ExampleData[{"Statistics", "OldFaithful"}];
ListPlot[data,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]
Out[1]=
![](assets.zh/cluster-geyser-eruptions/O_24.png)
计算分割喷发的分类器.
In[2]:=
![Click for copyable input](assets.zh/cluster-geyser-eruptions/In_32.png)
c = ClusterClassify[eruptions]
Out[2]=
![](assets.zh/cluster-geyser-eruptions/O_25.png)
可视化聚类.
In[3]:=
![Click for copyable input](assets.zh/cluster-geyser-eruptions/In_33.png)
clusters = GatherBy[data, c];
ListPlot[clusters,
FrameLabel -> {"Eruption time in minutes",
"Waiting time to next eruption in minutes"}, Frame -> True]
Out[3]=
![](assets.zh/cluster-geyser-eruptions/O_26.png)