Contexto

La segmentación o clusters es un conjutno 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('clusters')
library(cluster)
#install.packages('ggplot2')
library(ggplot2)
## Warning: package 'ggplot2' was built under R version 4.3.1
#install.packages('data.table')
library(data.table)
## Warning: package 'data.table' was built under R version 4.3.1
#install.packages('factoextra')
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa

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, 2, 3
## 
## Cluster means:
##          x        y
## 1 7.000000 4.333333
## 2 1.500000 3.500000
## 3 3.666667 9.000000
## 
## Clustering vector:
## [1] 3 2 1 3 1 1 2 3
## 
## Within cluster sum of squares by cluster:
## [1] 2.666667 5.000000 6.666667
##  (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

asignacion <- cbind(df, cluster = segmentos$cluster)
asignacion
##   x  y cluster
## 1 2 10       3
## 2 2  5       2
## 3 8  4       1
## 4 5  8       3
## 5 7  5       1
## 6 6  4       1
## 7 1  2       2
## 8 4  9       3

Paso 6. Graficar los clusters

fviz_cluster(segmentos, data = df)

Paso 7. Optimizar la cantidad de grupos

La cantidad óptima 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 clusters k')

Conclusión

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

LS0tCnRpdGxlOiAiU2VnbWVudGFjacOzbiAoY2x1c3RlcnMpIgphdXRob3I6ICJHZW5hcm8gUm9kcsOtZ3VleiBBbGPDoW50YXJhIC0gQTAwODMzMTcyIgpkYXRlOiAiMjAyNC0wMi0xOSIKb3V0cHV0OiAKICBodG1sX2RvY3VtZW50OgogICAgdG9jOiBUUlVFCiAgICB0b2NfZmxvYXQ6IFRSVUUKICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUKLS0tCgohW10oL1VzZXJzL2dlbmFyb3JvZHJpZ3VlemFsY2FudGFyYS9EZXNrdG9wL1RlYy9BSSAtIENvbmNlbnRyYWNpb8yBbi9Nb8yBZHVsbyAyIC0gTWFjaGluZSBMZWFybmluZy9CRC9EQlNDQU5fc2VhcmNoLmdpZikKCiMgQ29udGV4dG8KTGEgKipzZWdtZW50YWNpw7NuKiogbyBjbHVzdGVycyBlcyB1biBjb25qdXRubyBkZSB0w6ljbmljYXMgY3V5byBwcm9ww7NzaXRvIGVzIGZvcm1hciBncnVwb3MgYSBwYXJ0aXIgZGUgdW4gY29uanVudG8gZGUgZWxlbWVudG9zLgoKTcOhcyBpbmZvcm1hY2nDs246CltSIGZvciBEYXRhIFNjaWVuY2UgKDJlZCldKGh0dHBzOi8vcjRkcy5oYWQuY28ubnovKQoKIyBQYXNvIDEuIEluc3RhbGFyIHBhcXVldGVzIHkgbGxhbWFyIGxpYnJlcsOtYXMKYGBge3J9CiNpbnN0YWxsLnBhY2thZ2VzKCdjbHVzdGVycycpCmxpYnJhcnkoY2x1c3RlcikKI2luc3RhbGwucGFja2FnZXMoJ2dncGxvdDInKQpsaWJyYXJ5KGdncGxvdDIpCiNpbnN0YWxsLnBhY2thZ2VzKCdkYXRhLnRhYmxlJykKbGlicmFyeShkYXRhLnRhYmxlKQojaW5zdGFsbC5wYWNrYWdlcygnZmFjdG9leHRyYScpCmxpYnJhcnkoZmFjdG9leHRyYSkKYGBgCgojIFBhc28gMi4gT2J0ZW5lciBsb3MgZGF0b3MKYGBge3J9CmRmIDwtIGRhdGEuZnJhbWUoeD1jKDIsMiw4LDUsNyw2LDEsNCksIHk9YygxMCw1LDQsOCw1LDQsMiw5KSkKYGBgCgojIFBhc28gMy4gQ2FudGlkYWQgZGUgZ3J1cG9zCmBgYHtyfQpncnVwb3MgPC0gMwpgYGAKCiMgUGFzbyA0LiBHZW5lcmFyIGxvcyBzZWdtZW50b3MKYGBge3J9CnNlZ21lbnRvcyA8LSBrbWVhbnMoZGYsZ3J1cG9zKQpzZWdtZW50b3MKYGBgCgojIFBhc28gNS4gQXNpZ25hciBlbCBncnVwbyBhbCBxdWUgcGVydGVuZWNlIGNhZGEgb2JzZXJ2YWNpw7NuCmBgYHtyfQphc2lnbmFjaW9uIDwtIGNiaW5kKGRmLCBjbHVzdGVyID0gc2VnbWVudG9zJGNsdXN0ZXIpCmBgYAoKYGBge3J9CmFzaWduYWNpb24KYGBgCgojIFBhc28gNi4gR3JhZmljYXIgbG9zIGNsdXN0ZXJzCmBgYHtyfQpmdml6X2NsdXN0ZXIoc2VnbWVudG9zLCBkYXRhID0gZGYpCmBgYAoKIyBQYXNvIDcuIE9wdGltaXphciBsYSBjYW50aWRhZCBkZSBncnVwb3MKIyMgTGEgY2FudGlkYWQgw7NwdGltYSBkZSBncnVwb3MgY29ycmVzcG9uZGUgYWwgcHVudG8gbcOhcyBhbHRvIGRlIGxhIHNpZ3VpZW50ZSBncsOhZmljYQpgYGB7cn0Kc2V0LnNlZWQoMTIzKQpvcHRpbWl6YWNpb24gPC0gY2x1c0dhcChkZiwgRlVOPWttZWFucywgbnN0YXJ0ID0gMSwgSy5tYXggPSA3KQpwbG90KG9wdGltaXphY2lvbiwgeGxhYj0nTsO6bWVybyBkZSBjbHVzdGVycyBrJykKYGBgCgoKIyBDb25jbHVzacOzbgojIyBMYSBzZWdtZW50YWNpw7NuIG8gY2x1c3RlcnMgZXMgdW4gYWxnb3JpdG1vIMO6dGlsIHBhcmEgbGFzIGVtcHJlc2FzIHF1ZSBkZXNlYW4gY2xhc2lmaWNhciBzdXMgY2xpZW50ZXMgeSBkaXJpZ2lyIGNhbXBhw7FhcyBkZSBNS1QgbcOhcyBlbmZvY2FkYXMgeSBlc3BlY2lhbGl6ZGFzLg==