R语言做聚类分析

data<-read.table("pcadata.txt",header=T,row.names=1)
dist.r=dist(data,method="euclidean") #euclidean 欧式距离
hc.r = hclust(dist.r, method = "ward")

垂直树

plot(hc.r, hang = -1,labels=NULL)

水平树

plot(as.dendrogram(hc.r),horiz=T)

result = cutree(hc.r,k=4)

最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。