data<-read.csv("C:/Users/lenovo/Desktop/data.csv")
distance <- dist(data)#计算距离矩阵
data.hc <- hclust(distance)#最长距离法聚类
plot(data.hc, hang =-1)#绘制谱系图
re <- rect.hclust(data.hc, k =5)#分为5类
re
for(i in1:5)
R语言-聚类分析(系统聚类)一、最长距离法二、最短距离法三、类平均法四、重心法五、中间距离法六、离差平方和法一、最长距离法data<-read.csv("C:/Users/lenovo/Desktop/data.csv")distance <- dist(data) #计算距离矩阵data.hc <- hclust(distance) #最长距离法聚类plot(data.hc, hang = -1) #绘制谱系图 re <- rect.hclust(data.hc, k