r语言聚类实现整理

#高斯混合
library(mclust)
mc<-Mclust(iris[,1:4],3)
plot(mc,iris[,1],what="classification",dimens=c(3,4))
table(iris$Species, mc$classification)


#K均值
km<-kmeans(scale(x=iris[,1:4]),centers = 3)
plot(km$cluster)
table(km$cluster,iris$Species)
plot(iris[c("Sepal.Length","Sepal.Width")],col=km$cluster)



#层次聚类
iris.hc <- hclust( dist(iris[,1:4]))
plot( iris.hc, labels = FALSE, hang = -1)
re <- rect.hclust(iris.hc, k = 3)
iris.id <- cutree(iris.hc, 3)
table(iris.id, iris$Species)


#密度聚类
library(fpc)
newiris <- iris[1:4]
db <- dbscan(newiris,1.5,3,scale=T,showplot=T,method="raw")#类别太少
db <- dbscan(newiris,0.55,2,scale=T,showplot=T,method="hybrid")
db