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