> c=read.csv("1000.csv",header= TRUE)

> names<-c("店编号","平均次数","平均金额","间隔时间")

> Province<-dist(scale(c))

> hc1<-hclust(Province)

>hc2<-hclust(Province,"average")

>opar<-par(mfrow=c(4,1),mar=c(5.2,4,0,0))

> plclust(hc1,hang=-1)

>rel<-rect.hclust(hc1,k=4,border="red")

> plclust(hc2,hang=-1)

>re2<-rect.hclust(hc2,k=4,border="red")

> par(opar)

怎么是出现图片上的东西    怎么分析呢   求大神帮帮忙