分享一个简单的聚类分析例子

xydf_1992

place	height	waterfall	icesoildepth	windday
哈巴河	532.6	173.8	150	61.8
阿勒泰	735.1	191.5	146	37.7
克拉玛依	427	114.4	197	75.4
巴楚	1116.5	41.6	64	7.6
莎车	1231.2	42.5	93	11
于田	1427	46.4	81	1.4

对上表进行聚类分析，分析差异较小的地区

1. xinj<-read.csv("xinjiang.csv",header = TRUE)
   
2. fun <- function(x) (x-min(x))/(max(x)-min(x))
   
3. xj3 <- apply(xinj[,2:5], 2, FUN=fun) # use method "min-max"
   
4. xj3<-data.frame(xinj[,1],xj3)
   
5. hc.single=hclust(dist(xj3[2:5]),method = "single")     #最短距离法聚类
   
6. plot(hc.single,main = "Single Linkage",xlab="",labels=xj3$xinj...1.,ylab="",sub = "place",cex=.9)  #制作聚类图

复制代码

最终结果如图