
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==