data(iris)
a = iris
a

a$Species=NULL # 원래 데이터 제외

kc=kmeans(a, 3) # k=3
summary(kc)

table(iris$Species, kc$cluster)

plot(a[c("Sepal.Length", "Sepal.Width")], col=kc$cluster)