R语言聚类分析-创新互联
聚类分析有很多种, 效果好不好大概要根据数据特征来确定。最常见的是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://scyanting.com/article/ddcdie.html