大数据第四次作业

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)