221027| 两种方法进行聚类分析

Cti1

已于 2022-10-28 21:43:06 修改

阅读量1.4k

点赞数 1

文章标签：聚类

于 2022-10-27 22:56:03 首次发布

本文链接：https://blog.csdn.net/weixin_53293011/article/details/127561557

版权

题源：应用多元统计分析（第四版）朱建平主编

思考与练习

5.8 下表是某年我国16个地区农民支出情况的抽样调查数据，每个地区调查了反映每人平均生活消费支出情况的6个经济指标。试使用系统聚类法和K均值聚类法分别对这些地区进行聚类分析，并对结果进行比较分析。

一、系统聚类法：

library(readr)  #用于读取数据文件
setwd("C:\\Users\\Lenoo\\Desktop")
dir()

d<-read.csv("5_8.csv",encoding = "UTF-8") #读取数据
rn<-d[['地区']]  #将地区名称赋值给rn
df<-d[,-1]  #去掉第一列
df[is.na(df)]<-0  #将缺失值补充为0

df<-scale(x=df)  #利用scale函数默认设置进行数据标准化操作
dis<-dist(df,method = "euclidean")  #创建样本之间的距离对象
#用hclust函数进行聚类，method选centroid为重心法
result_hc<-hclust(d=dis,method = "centroid")  

plot(result_hc,labels=rn)  #结果可视化

得下聚类图：