R语言进行聚类分析 1.系统聚类代码 #系统聚类 getwd() xt1<-read.csv("1.csv",header = T,row.names = 1) xt <- scale(xt1) xt head(xt) distance<-dist(xt)#计算距离 distance hc1<-hclust(distance,"ward.D2")#使用离差平方和法,默认最长距离法 plot(hc1,hang = 0.1)#绘画系谱图 re1<-rect.hclust(hc1,k