分享一个简单的聚类分析例子
placeheightwaterfallicesoildepthwindday
哈巴河532.6173.815061.8
阿勒泰735.1191.514637.7
克拉玛依427114.419775.4
巴楚1116.541.6647.6
莎车1231.242.59311
于田142746.4811.4
对上表进行聚类分析，分析差异较小的地区
xinj<-read.csv("xinjiang.csv",header = TRUE)
fun <- function(x) (x-min(x))/(max(x)-min(x))
xj3 <- apply(xinj[,2:5], 2, FUN=fun) # use method "min-max"
xj3<-data.frame(xinj[,1],xj3)
hc.single=hclust(dist(xj3),method = "single") #最短距离法聚类
plot(hc.single,main = "Single Linkage",xlab="",labels=xj3$xinj...1.,ylab="",sub = "place",cex=.9)#制作聚类图
最终结果如图
页:
[1]