多元统计聚类分析

1.导入数据：
先复制要用到的excel中的短数据，再使用以下代码：

data<-read.table("clipboard",header = TRUE,sep = '\t')
data #导入数据

2.插入标题：

head(data)
rownames(data)<-data$X #给数据标行名字
c(data)#将data分为列

3.计算距离

sc_data<-scale(data[,-1])#表示除掉第一列的data且标准化变换
ds_data<-dist(sc_data,method = "euclidean",diag = TRUE,upper = FALSE,p=2)#距离计算
hc_data<-hclust(ds_data,method = 'single')

4.画图

win.graph(width = 4.875,height = 3,pointsize = 8)#画图
plot(hc_data,main = "谱系聚类图")