文档章节

k-means算法 via R Language

唐荣
 唐荣
发布于 2014/11/15 10:45
字数 310
阅读 27
收藏 0

dim(iris) 维度

names(iris) 列名

str(iris) 内部结构

attributes(iris数据集的属性

 iris[1:5,] , 前五行数据

iris[1:10, "Sepal.Length"] 查看数据集中属性Sepal.Length前10行数据

summary(iris)  显示数据集中每个变量的分布情况

table(iris$Species)  显示iris数据集列Species中各个值出现频次


var(iris$Sepal.Length) 方差

cov(iris$Sepal.Length, iris$Petal.Length) 相关系数


使用knn包进行Kmean聚类分析

第二步:使用knn包进行Kmean聚类分析

将数据集进行备份,将列newiris$Species置为空,将此数据集作为测试数据集
> newiris <- iris
> newiris$Species <- NULL



在数据集newiris上运行Kmean聚类分析, 将聚类结果保存在kc中。在kmean函数中,将需要生成聚类数设置为3
> (kc <- kmeans(newiris, 3)) 

创建一个连续表,在三个聚类中分别统计各种花出现的次数
> table(iris$Species, kc$cluster)       

根据最后的聚类结果画出散点图,数据为结果集中的列"Sepal.Length"和"Sepal.Width",颜色为用1,2,3表示的缺省颜色
> plot(newiris[c("Sepal.Length", "Sepal.Width")], col = kc$cluster)
在图上标出每个聚类的中心点
〉points(kc$centers[,c("Sepal.Length", "Sepal.Width")], col = 1:3, pch = 8, cex=2)

本文转载自:http://f.dataguru.cn/thread-19407-1-1.html

共有 人打赏支持
下一篇: R language
唐荣
粉丝 0
博文 17
码字总数 4081
作品 0
成都
高级程序员
私信 提问
机器学习之划分聚类及代码示例

一、聚类 聚类是一种无监督学习,根据样本的内在相似性/距离,将大量未知标记的样本集划分为多个类别,使得同一个类别内的样本相似度较大(距离较小),而不同类别间的样本相似度较小(距离较...

cxmscb
2017/03/16
0
0
基于改进的K-means算法在共享交通行业客户细分中的应用

对应实现代码:传送门(实现代码专注于方案的实现,k-means算法的改进并没有在代码云中体现,为方便实现直接采用sklearn标准库算法) 摘要:信息时代的来临使得企业营销焦点从产品中心转变为...

u010665216
2018/05/30
0
0
【Spark ML】 K-means聚类算法

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/Xiejingfa/article/details/79936737 原创作品,转载请标明:https://blog.csdn.net/Xiejingfa/article/detai...

Fred^_^
2018/04/14
0
0
(2)聚类算法之K-means算法

版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/LoveCarpenter/article/details/85048822 文章目录 1.引言 2.`K-means`算法原理 3.`K-means`算法实现 4 .优缺...

王培晓Carpenter
2018/12/17
0
0
论文 - 扩展 K-Means 算法:混合数据类型的聚类

原文:Extensions to the k-means algorithm for clustering large datasets with categorical values 作者:ZHEXUE HUANG. 来源:Data mining and knowledge discovery, 1998, 2(3): 283-30......

Kofe_
2018/07/09
0
0

没有更多内容

加载失败,请刷新页面

加载更多

多表查询

第1章 多表关系实战 1.1 实战1:省和市  方案1:多张表,一对多  方案2:一张表,自关联一对多 1.2 实战2:用户和角色 (比如演员和扮演人物)  多对多关系 1.3 实战3:角色和权限 (比如...

stars永恒
今天
6
0
求推广,德邦快递坑人!!!!

完全没想好怎么来吐槽自己这次苦逼的德邦物流过程了,只好来记一个流水账。 从寄快递开始: 2019年1月15日从 德邦物流 微信小app上下单,截图如下: 可笑的是什么,我预约的是17号上门收件,...

o0无忧亦无怖
昨天
6
0
Mac Vim配置

1.升级 vim   我自己 MacBook Pro 的系统还是 10.11 ,其自带的 vim 版本为 7.3 ,我们将其升至最新版: 使用 homebrew : brew install vim --with-lua --with-override-system-vim 这将下...

Pasenger
昨天
8
0
vmware安装Ubuntu上不了网?上网了安装不了net-tools,无法执行ifconfig?

1.重新设置网络适配器还是不行,如下指定nat 2.还需要指定共享网络,我是在无线环境下 3.无法执行ifconfig https://packages.ubuntu.com/bionic/net-tools到这个网站下载net-tools的deb文件...

noob_chr
昨天
4
0
解决SVN:E210007无法协商认证机制

svn:E210007 svn: Cannot negotiate authentication mechanism 执行下面代码即可 sudo yum install cyrus-sasl cyrus-sasl-plain cyrus-sasl-ldap...

临江仙卜算子
昨天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部