k-mean을 활용한 클러스터링(Clustering)을 R을 활용한 예제 입니다.

161026_k-mean.R

# Reference Address 
# http://datascienceplus.com/k-means-clustering-in-r/

# iris 데이터를 활용
library(datasets)
head(iris)

# ggplot2로 시각화 
library(ggplot2)
ggplot(iris, aes(Petal.Length, Petal.Width, color = Species)) + geom_point()

# k-mean을 통한 분류 

set.seed(20)
irisCluster <- kmeans(iris[, 3:4], 3, nstart = 20)
irisCluster

# 각 종별로 클러스터 비교 
table(irisCluster$cluster, iris$Species)

# 해당 결과 시각화

irisCluster$cluster <- as.factor(irisCluster$cluster)
ggplot(iris, aes(Petal.Length, Petal.Width, color = irisCluster$cluster)) + geom_point()