聚类分析有很多种， 效果好不好大概要根据数据特征来确定。最常见的是kmeans法聚类

目前创新互联已为上千多家的企业提供了网站建设、域名、虚拟主机、网站改版维护、企业网站设计、建德网站维护等服务，公司将坚持客户导向、应用为本的策略，正道将秉承"和谐、参与、激情"的文化，与客户和合作伙伴齐心协力一起成长，共同发展。> setwd("D:\\R_test") > data_in <- read.delim("tmp_result.txt", header=T) > fit <- kmeans(data_in, 3) > library(cluster) > clusplot(data_in, fit$cluster, color=T, shade=T, labels = 2, lines =0)

也可以用mclust

> install.packages("mclust") 试开URL’http://cloud.r-project.org/bin/windows/contrib/2.14/mclust_4.0.zip' Content type 'application/zip' length 2371233 bytes (2.3 Mb) 打开了URL downloaded 2.3 Mb 程序包‘mclust’打开成功，MD5和检查也通过 下载的程序包在         C:\Users\Administrator\AppData\Local\Temp\RtmpiIyw2o\downloaded_packages里 > fit <- Mclust(data_in)         > summary(fit) ---------------------------------------------------- Gaussian finite mixture model fitted by EM algorithm  ---------------------------------------------------- Mclust XXX (elliposidal multivariate normal) model with 1 component:  log.likelihood   n    df     BIC         1616504 263 33410 3046843 Clustering table:   1  263  > fit$  // 按下Tab键，有以下选项 fit$call           fit$modelName      fit$n              fit$d              fit$G               fit$BIC            fit$bic            fit$loglik         fit$df             fit$parameters      fit$classification fit$uncertainty > plot(fit, what="classification") // http://www.statmethods.net/advstats/cluster.html

另外有需要云服务器可以了解下创新互联cdcxhl.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。

网页题目：R语言聚类分析-创新互联
文章位置：http://hbruida.cn/article/ddcdie.html