R Notebook

install.packages("rattle.data")#instalar paquete
library(rattle.data)

Cargar datos

data(wine, package="rattle.data")#cargar un dataset
head(wine,10)#ver los primeros 10 datos 

Instalar paquete

install.packages("cluster")
library("cluster")

Metodo No jerarquico

k.means.fit <- kmeans(wine, 3) # k = 3

Atributos

attributes(k.means.fit)

$names
[1] "cluster"      "centers"      "totss"        "withinss"    
[5] "tot.withinss" "betweenss"    "size"         "iter"        
[9] "ifault"      

$class
[1] "kmeans"

Grafica de los cluster

clusplot(wine, k.means.fit$cluster, main='2D representation of the Cluster solution',
         color=TRUE, shade=TRUE,
         labels=2, lines=0)