基于R多元统计分析——聚类算法代码实现_r形聚类法代码-程序员宅基地
目录
以全国各城市空气质量年度数据为例。分别应用系统聚类算法和K均值聚类法对数据进行分析
一、背景
系统聚类算法先将各个个体看作一类，根据个体间的相似程度（距离、相关系数）等合并出新类而后不断循环该过程直至达到事先确定的某些标准
其度量相似度的方法有
最小距离、最大距离、中间距离、重心距离、类平均、离差平均等（Q型聚类）
相似系数（P型聚类）
二、系统聚类算法代码实现
setwd("C:/Users/myq20170530/data")#路径设置
data<-read.csv('ex3.4.csv',header=1)#提取数据
d4.3<-data[,-c(1)] #由于数据的第一列是城市名字符串故删去
rownames(d4.3)=data[,1]#为方便下一步分类结果的可视化，把数据的序号改作城市名称
d<-dist(d4.3,method='euclidean',diag=T,upper=T,p=2) #利用欧式距离计算 p为明氏距离的参数
HC1<-hclust(d,method='single')#用最小距离法聚类（对应类与类之间的距离）
plot(HC1,hang=-1)#从底部对齐绘制聚类树状图
##dist() euclidean manhattan minkowski binary
##hclust() complete average median centroid ward
cutree(HC1,k=4)
[output]
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 3 1 1 1 1 2 1
57 58 59 60
1 4 1 1
rect.hclust(HC1,k=3,border='red')#用红色矩形框框出聚类数为3的结果
#若已知数据为相关系数
d=dist(1-d4.3)
三、K均值聚类算法代码实现
k聚类法每一步均要计算类间距计算量较大，k均值聚类法相较之下更加快捷。基本思想如下：先把n个对象粗略分为k类后按照某种最优原则修改不合理的分类直至准则函数收敛。
##仍以系统聚类算法的数据为例
KM<-kmeans(d4.3,4,nstart=20,algorithm="Hartigan-Wong")
#聚类数为4，初始随机集合的个数为20，算法:Hartigan-Wong Lloyd Forgy MacQueen
KM
sort(KM$cluster)
KM<-kmeans(d4.3,5,nstart=20;sort(KM$cluster))#当聚类个数为5四、结果对比和分析
采用系统聚类算法时，利用abline(h)函数可知合并距离为2.2和2.5时113个数据分类结果如下图
红色框圈出聚类数为3的分类结果，若合并距离取25则大致可分为三类
利用k均值聚类算法时结果如下图
当k=4时各类的样本个数分别为25，38，22，28；means是各类的均值；Clustering Vector表示各地区原顺序聚类后的分类情况和类间平方和在总平方和中的占比，这里为85.1%（该数据越大越好）
对分类结果进行排序并且查看分类情况有
第一类：北京、天津、呼和浩特
第二类：大同、南京、青岛、西宁
第三类：枣庄、唐山、石家庄
第四类：南宁、柳州、桂林、北海
若k=3则
第一类：天津、石家庄、唐山
第二类：汕头、湛江、南宁
第三类：武汉、荆州、南昌
且此时和合并距离为30的聚类结果一致
智能推荐
稀疏编码的数学基础与理论分析-程序员宅基地
文章浏览阅读290次，点赞8次，收藏10次。1.背景介绍稀疏编码是一种用于处理稀疏数据的编码技术，其主要应用于信息传输、存储和处理等领域。稀疏数据是指数据中大部分元素为零或近似于零的数据，例如文本、图像、音频、视频等。稀疏编码的核心思想是将稀疏数据表示为非零元素和它们对应的位置信息，从而减少存储空间和计算复杂度。稀疏编码的研究起源于1990年代，随着大数据时代的到来，稀疏编码技术的应用范围和影响力不断扩大。目前，稀疏编码已经成为计算...
EasyGBS国标流媒体服务器GB28181国标方案安装使用文档-程序员宅基地
文章浏览阅读217次。EasyGBS - GB28181 国标方案安装使用文档下载安装包下载，正式使用需商业授权, 功能一致在线演示在线API架构图EasySIPCMSSIP 中心信令服务, 单节点, 自带一个 Redis Server, 随 EasySIPCMS 自启动, 不需要手动运行EasySIPSMSSIP 流媒体服务, 根..._easygbs-windows-2.6.0-23042316使用文档
【Web】记录巅峰极客2023 BabyURL题目复现——Jackson原生链_原生jackson 反序列化链子-程序员宅基地
文章浏览阅读1.2k次，点赞27次，收藏7次。2023巅峰极客 BabyURL之前AliyunCTF Bypassit I这题考查了这样一条链子：其实就是Jackson的原生反序列化利用今天复现的这题也是大同小异，一起来整一下。_原生jackson 反序列化链子
一文搞懂SpringCloud，详解干货，做好笔记_spring cloud-程序员宅基地
文章浏览阅读734次，点赞9次，收藏7次。微服务架构简单的说就是将单体应用进一步拆分，拆分成更小的服务，每个服务都是一个可以独立运行的项目。这么多小服务，如何管理他们？(服务治理 注册中心[服务注册 发现 剔除])这么多小服务，他们之间如何通讯？这么多小服务，客户端怎么访问他们？(网关)这么多小服务，一旦出现问题了，应该如何自处理？(容错)这么多小服务，一旦出现问题了，应该如何排错?(链路追踪)对于上面的问题，是任何一个微服务设计者都不能绕过去的，因此大部分的微服务产品都针对每一个问题提供了相应的组件来解决它们。_spring cloud
Js实现图片点击切换与轮播-程序员宅基地
文章浏览阅读5.9k次，点赞6次，收藏20次。Js实现图片点击切换与轮播图片点击切换<!DOCTYPE html><html> <head> <meta charset="UTF-8"> <title></title> <script type="text/ja..._点击图片进行轮播图切换
tensorflow-gpu版本安装教程（过程详细）_tensorflow gpu版本安装-程序员宅基地
文章浏览阅读10w+次，点赞245次，收藏1.5k次。在开始安装前，如果你的电脑装过tensorflow，请先把他们卸载干净，包括依赖的包（tensorflow-estimator、tensorboard、tensorflow、keras-applications、keras-preprocessing），不然后续安装了tensorflow-gpu可能会出现找不到cuda的问题。cuda、cudnn。..._tensorflow gpu版本安装
随便推点
物联网时代 权限滥用漏洞的攻击及防御-程序员宅基地
文章浏览阅读243次。0x00 简介权限滥用漏洞一般归类于逻辑问题，是指服务端功能开放过多或权限限制不严格，导致攻击者可以通过直接或间接调用的方式达到攻击效果。随着物联网时代的到来，这种漏洞已经屡见不鲜，各种漏洞组合利用也是千奇百怪、五花八门，这里总结漏洞是为了更好地应对和预防，如有不妥之处还请业内人士多多指教。0x01 背景2014年4月，在比特币飞涨的时代某网站曾经..._使用物联网漏洞的使用者
Visual Odometry and Depth Calculation--Epipolar Geometry--Direct Method--PnP_normalized plane coordinates-程序员宅基地
文章浏览阅读786次。A. Epipolar geometry and triangulationThe epipolar geometry mainly adopts the feature point method, such as SIFT, SURF and ORB, etc. to obtain the feature points corresponding to two frames of images. As shown in Figure 1, let the first image be and th_normalized plane coordinates
开放信息抽取(OIE)系统（三）-- 第二代开放信息抽取系统(人工规则, rule-based, 先抽取关系)_语义角色增强的关系抽取-程序员宅基地
文章浏览阅读708次，点赞2次，收藏3次。开放信息抽取(OIE)系统（三）-- 第二代开放信息抽取系统(人工规则, rule-based, 先关系再实体)一.第二代开放信息抽取系统背景 第一代开放信息抽取系统(Open Information Extraction， OIE， learning-based, 自学习, 先抽取实体)通常抽取大量冗余信息，为了消除这些冗余信息，诞生了第二代开放信息抽取系统。二.第二代开放信息抽取系统历史第二代开放信息抽取系统着眼于解决第一代系统的三大问题: 大量非信息性提取（即省略关键信息的提取）、_语义角色增强的关系抽取
10个顶尖响应式HTML5网页_html欢迎页面-程序员宅基地
文章浏览阅读1.1w次，点赞6次，收藏51次。快速完成网页设计,10个顶尖响应式HTML5网页模板助你一臂之力为了寻找一个优质的网页模板，网页设计师和开发者往往可能会花上大半天的时间。不过幸运的是，现在的网页设计师和开发人员已经开始共享HTML5，Bootstrap和CSS3中的免费网页模板资源。鉴于网站模板的灵活性和强大的功能，现在广大设计师和开发者对html5网站的实际需求日益增长。为了造福大众，Mockplus的小伙伴整理了2018年最..._html欢迎页面
计算机二级 考试科目,2018全国计算机等级考试调整，一、二级都增加了考试科目...-程序员宅基地
文章浏览阅读282次。原标题：2018全国计算机等级考试调整，一、二级都增加了考试科目全国计算机等级考试将于9月15-17日举行。在备考的最后冲刺阶段，小编为大家整理了今年新公布的全国计算机等级考试调整方案，希望对备考的小伙伴有所帮助，快随小编往下看吧！从2018年3月开始，全国计算机等级考试实施2018版考试大纲，并按新体系开考各个考试级别。具体调整内容如下：一、考试级别及科目1.一级新增“网络安全素质教育”科目(代..._计算机二级增报科目什么意思
conan简单使用_apt install conan-程序员宅基地
文章浏览阅读240次。conan简单使用。_apt install conan