Contexto

La segmentación o clusters es un conjunto de técnicas cuyo propósito es formar grupos a partir de un conjunto de elementos.

Más información:
R for Data Science (2ed)

Paso 1. Instalar paquetes y llamar librerías

#install.packages("data.table")
library(cluster) # Librería para la realización de clusters
library(ggplot2) # Librería para la visualización de datos 
library(data.table) # 
library(factoextra) # librería para graficar cluster

Paso 2. Obtener los datos

df = data.frame ( x = c(2, 2, 8, 5, 7, 6, 1,4), y = c(10, 5, 4, 8, 5, 4, 2, 9))

Paso 3. Cantidad de grupos

grupos = 3 

Paso 4. Generar los segmentos

segmentos = kmeans(df,grupos)
segmentos
## K-means clustering with 3 clusters of sizes 3, 3, 2
## 
## Cluster means:
##          x        y
## 1 7.000000 4.333333
## 2 3.666667 9.000000
## 3 1.500000 3.500000
## 
## Clustering vector:
## [1] 2 3 1 2 1 1 3 2
## 
## Within cluster sum of squares by cluster:
## [1] 2.666667 6.666667 5.000000
##  (between_SS / total_SS =  85.8 %)
## 
## Available components:
## 
## [1] "cluster"      "centers"      "totss"        "withinss"     "tot.withinss"
## [6] "betweenss"    "size"         "iter"         "ifault"

Paso 5. Asignar el grupo al que pertenece cada observación

asignación = cbind(df, cluster = segmentos$cluster)
asignación
##   x  y cluster
## 1 2 10       2
## 2 2  5       3
## 3 8  4       1
## 4 5  8       2
## 5 7  5       1
## 6 6  4       1
## 7 1  2       3
## 8 4  9       2

Paso 6. Graficar los clusters

fviz_cluster(segmentos, data = df)

Paso 7. Optimizar la cantidad de grupos

# La cantidad optima de grupos corresponde al punto más alto de la siguiente gráfica
set.seed(123)
optimizacion = clusGap(df, FUN = kmeans, nstart = 1, K.max = 7)
plot(optimizacion, xlab="Número de cluster k")

CONCLUSIÓN

La segmentación o clusters son un algoritmo útil para las empresas que desean clasificar sus clientes y dirigir campañas de marketing más enfocadas y especializadas

LS0tDQp0aXRsZTogIk0yX0NsdXN0ZXJzIg0KYXV0aG9yOiAiQXJ0dXJvIFNpbHZhICBBMDExOTgwNDkiDQpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiDQpvdXRwdXQ6IA0KICBodG1sX2RvY3VtZW50Og0KICAgIHRvYzogVFJVRQ0KICAgIHRvY19mbG9hdDogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCi0tLQ0KDQohW10oQzpcXFVzZXJzXFxTaWx2YVxcRG9jdW1lbnRzXFxUZWNcXEltYWdlbmVzX2FjdHNcXHRoaW5raW5nLW1hdGguZ2lmKQ0KDQoNCiMgQ29udGV4dG8gDQpMYSAqKnNlZ21lbnRhY2nDs24qKiBvICpjbHVzdGVycyogZXMgdW4gY29uanVudG8gZGUgdMOpY25pY2FzIGN1eW8gcHJvcMOzc2l0byBlcyBmb3JtYXIgZ3J1cG9zIGEgcGFydGlyIGRlIHVuIGNvbmp1bnRvIGRlIGVsZW1lbnRvcy4gIA0KDQpNw6FzIGluZm9ybWFjacOzbjogIA0KW1IgZm9yIERhdGEgU2NpZW5jZSAoMmVkKV0oaHR0cHM6Ly9yNGRzLmhhZC5jby5uei8pICANCg0KDQojIFBhc28gMS4gSW5zdGFsYXIgcGFxdWV0ZXMgeSBsbGFtYXIgbGlicmVyw61hcyANCmBgYHtyIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQojaW5zdGFsbC5wYWNrYWdlcygiZGF0YS50YWJsZSIpDQpsaWJyYXJ5KGNsdXN0ZXIpICMgTGlicmVyw61hIHBhcmEgbGEgcmVhbGl6YWNpw7NuIGRlIGNsdXN0ZXJzDQpsaWJyYXJ5KGdncGxvdDIpICMgTGlicmVyw61hIHBhcmEgbGEgdmlzdWFsaXphY2nDs24gZGUgZGF0b3MgDQpsaWJyYXJ5KGRhdGEudGFibGUpICMgDQpsaWJyYXJ5KGZhY3RvZXh0cmEpICMgbGlicmVyw61hIHBhcmEgZ3JhZmljYXIgY2x1c3Rlcg0KYGBgDQoNCiMgUGFzbyAyLiBPYnRlbmVyIGxvcyBkYXRvcyANCmBgYHtyfQ0KZGYgPSBkYXRhLmZyYW1lICggeCA9IGMoMiwgMiwgOCwgNSwgNywgNiwgMSw0KSwgeSA9IGMoMTAsIDUsIDQsIDgsIDUsIDQsIDIsIDkpKQ0KYGBgDQoNCiMgUGFzbyAzLiBDYW50aWRhZCBkZSBncnVwb3MNCmBgYHtyfQ0KZ3J1cG9zID0gMyANCmBgYA0KDQojIFBhc28gNC4gR2VuZXJhciBsb3Mgc2VnbWVudG9zDQpgYGB7cn0NCnNlZ21lbnRvcyA9IGttZWFucyhkZixncnVwb3MpDQpzZWdtZW50b3MNCmBgYA0KDQojIFBhc28gNS4gQXNpZ25hciBlbCBncnVwbyBhbCBxdWUgcGVydGVuZWNlIGNhZGEgb2JzZXJ2YWNpw7NuDQpgYGB7cn0NCmFzaWduYWNpw7NuID0gY2JpbmQoZGYsIGNsdXN0ZXIgPSBzZWdtZW50b3MkY2x1c3RlcikNCmFzaWduYWNpw7NuDQpgYGANCg0KIyBQYXNvIDYuIEdyYWZpY2FyIGxvcyBjbHVzdGVycyAgDQpgYGB7cn0NCmZ2aXpfY2x1c3RlcihzZWdtZW50b3MsIGRhdGEgPSBkZikNCmBgYA0KICANCiMgUGFzbyA3LiBPcHRpbWl6YXIgbGEgY2FudGlkYWQgZGUgZ3J1cG9zDQpgYGB7cn0NCiMgTGEgY2FudGlkYWQgb3B0aW1hIGRlIGdydXBvcyBjb3JyZXNwb25kZSBhbCBwdW50byBtw6FzIGFsdG8gZGUgbGEgc2lndWllbnRlIGdyw6FmaWNhDQpzZXQuc2VlZCgxMjMpDQpvcHRpbWl6YWNpb24gPSBjbHVzR2FwKGRmLCBGVU4gPSBrbWVhbnMsIG5zdGFydCA9IDEsIEsubWF4ID0gNykNCnBsb3Qob3B0aW1pemFjaW9uLCB4bGFiPSJOw7ptZXJvIGRlIGNsdXN0ZXIgayIpDQpgYGANCg0KIyBDT05DTFVTScOTTg0KTGEgKipzZWdtZW50YWNpw7NuKiogbyAqY2x1c3RlcnMqIHNvbiAgdW4gYWxnb3JpdG1vIMO6dGlsIHBhcmEgbGFzIGVtcHJlc2FzIHF1ZSBkZXNlYW4gY2xhc2lmaWNhciBzdXMgY2xpZW50ZXMgeSBkaXJpZ2lyIGNhbXBhw7FhcyBkZSBtYXJrZXRpbmcgbcOhcyBlbmZvY2FkYXMgeSBlc3BlY2lhbGl6YWRhcw0KDQoNCg==