data = read.csv("animal.csv",header=T)
pr <- prcomp(data,scale=F)
pk<-kmeans(data,3)
plot(pr$x,type="n")
text(pr$x,labels=rownames(pr$x),col=pk$cluster)
