mydata<-read.table(file.choose())
mydata
head(mydata)
mydist<-dist(mydata,method="euclidean")
mymodel<-hclust(mydist)
plot(mymodel,labels=mydata$V8)
myresult<-cutree(mymodel,3)
for(i in 1:3){ show(mydata$V8(which(myresult==i)]}
以上使用的是系统系统算法;下面使用的是kmeans方法:
km<-kmeans(mydata,3)
plot(mydata,km$cluster)