R语言作快速聚类时画聚类图要突出某一个点

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坐标

结果如下图：（红色圈圈出了所要突出的点的类别和位置）