library(fpc)
iris2=iris[,-5]
kmeans=kmeans(iris2,3)
cx <- discrproj(iris2,kmeans$cluster)$proj #这个就是plotcluster里的核心函数
plot(cx,pch=21,col=kmeans$cluster)
points(cx[150,1],cx[150,2],pch="o",col=2,cex=2) #这个根据所要突出点的cx坐标
结果如下图:(红色圈圈出了所要突出的点的类别和位置)
本文通过使用R语言的fpc包实现了一个基于鸢尾花数据集的聚类分析案例。具体步骤包括加载必要的库文件,从鸢尾花数据集中选取数值特征进行聚类分析,并利用discrproj函数投影到低维空间进行可视化展示。最后,通过在图表中突出特定的数据点来直观地展示聚类效果。
library(fpc)
iris2=iris[,-5]
kmeans=kmeans(iris2,3)
cx <- discrproj(iris2,kmeans$cluster)$proj #这个就是plotcluster里的核心函数
plot(cx,pch=21,col=kmeans$cluster)
points(cx[150,1],cx[150,2],pch="o",col=2,cex=2) #这个根据所要突出点的cx坐标
结果如下图:(红色圈圈出了所要突出的点的类别和位置)
2415

被折叠的 条评论
为什么被折叠?