Valores atípicos
Benjamin Huaman
2023-12-24
Caso telefonía
una empresa de telefonía local, constantemente evalua la satisfacción de sus cliente cuando visitan el CAC (Centro de atención al cliente). La compañia registra datos de :
- El género del cliente
- La sucursal donde fue atendido
- Número de reclamos hasta la fecha
- Número de llamada que ha realizado al CAC
- Edad
- Minutos consumidos de su plan
- Monto de pago del cliente
- Tiempo de espera el cliente hasta ser atendido en el CAC
- Opinión frente a la atención
El principal objetivo es realizar un análisis de satisfacción del cliente
# Carga de datos
telco <- read.csv("https://raw.githubusercontent.com/VictorGuevaraP/Estadistica-R/master/Caso_telefon%C3%ADa.csv",
encoding = "latin1", sep = ";", stringsAsFactors = T)# Mostrar datos
head(telco)## Código Género Sucursal Reclamos Llamadas Edad Minutos Monto Tiempo
## 1 CLIPE1 Masculino Suc. Este 5 7 27 33.0 90.7 16.9
## 2 CLIPE2 Femenino Suc. Este 2 4 28 31.7 95.7 1.5
## 3 CLIPE3 Masculino Suc. Este 5 7 28 39.9 114.5 4.0
## 4 CLIPE4 Masculino Suc. Este 3 5 21 39.3 106.0 14.5
## 5 CLIPE5 Femenino Suc. Este 2 3 29 37.8 99.0 2.7
## 6 CLIPE6 Masculino Suc. Este 3 4 26 43.7 90.2 11.5
## Opinión
## 1 Regular
## 2 Bueno
## 3 Pésimo
## 4 Muy Bueno
## 5 Pésimo
## 6 Bueno# Resumen
summary(telco)## Código Género Sucursal Reclamos Llamadas
## CLIPE1 : 1 Femenino :38 Suc. Centro:23 Min. : 1.000 Min. : 1.000
## CLIPE10: 1 Masculino:42 Suc. Este :22 1st Qu.: 2.000 1st Qu.: 3.000
## CLIPE11: 1 Suc. Norte :16 Median : 3.000 Median : 5.000
## CLIPE12: 1 Suc. Sur :19 Mean : 3.587 Mean : 4.912
## CLIPE13: 1 3rd Qu.: 4.250 3rd Qu.: 7.000
## CLIPE14: 1 Max. :11.000 Max. :13.000
## (Other):74
## Edad Minutos Monto Tiempo
## Min. :20.00 Min. :17.50 Min. : 74.10 Min. : 0.300
## 1st Qu.:26.00 1st Qu.:31.62 1st Qu.: 84.17 1st Qu.: 1.700
## Median :30.50 Median :37.45 Median : 89.95 Median : 3.300
## Mean :30.29 Mean :37.49 Mean : 92.31 Mean : 6.034
## 3rd Qu.:35.00 3rd Qu.:43.15 3rd Qu.: 99.00 3rd Qu.: 5.575
## Max. :40.00 Max. :62.20 Max. :119.10 Max. :36.000
##
## Opinión
## Bueno :15
## Excelente:14
## Muy Bueno:18
## Pésimo :24
## Regular : 9
##
## Detección de outtliers univariado - gráfica
El análisis solo se realiza para variable cuantitativas
Gráfico de cajas
Gráfico de cajas y bigotes
#Gráfico de cajas y bigotes
boxplot(telco$Edad)
Según los resultados, la edad no tiene valores atípicos
Obteniendo valores atípicos para la variable monto de pago
boxplot(telco$Monto)
Para todo
boxplot(telco)
Para tiempo
boxplot(telco$Tiempo)
Según los resultados, se identifica valores atípicos. Vamos a identificarlo y plantear estrategia de corrección
# Calcular el RIC (RIC = Q3 - Q1)
q1 <- quantile(telco$Tiempo, 0.25)
q3 <- quantile(telco$Tiempo, 0.75)
RIC <- q3-q1
RIC## 75%
## 3.875# Limites o bigotes (Superior e inferior)
bigote_inferior <- q1-1.5*RIC
bigote_inferior## 25%
## -4.1125bigote_superior <- q3+1.5*RIC
bigote_superior## 75%
## 11.3875# Identificar lo valores atípicos
outliers_det <- telco$Tiempo[telco$Tiempo < bigote_inferior | telco$Tiempo > bigote_superior]
outliers_det## [1] 16.9 14.5 11.5 20.5 11.5 20.5 16.5 26.6 22.7 12.5 23.7 36.0 16.9 14.5 11.7
## [16] 20.5Correción
Eliminar los atípicos
telco_sin_atipicos <- telco[!telco$Tiempo %in% outliers_det,]
telco_sin_atipicos## Código Género Sucursal Reclamos Llamadas Edad Minutos Monto Tiempo
## 2 CLIPE2 Femenino Suc. Este 2 4 28 31.7 95.7 1.5
## 3 CLIPE3 Masculino Suc. Este 5 7 28 39.9 114.5 4.0
## 5 CLIPE5 Femenino Suc. Este 2 3 29 37.8 99.0 2.7
## 7 CLIPE7 Masculino Suc. Este 6 8 40 46.1 102.5 0.5
## 8 CLIPE8 Masculino Suc. Este 2 4 40 37.6 92.2 1.3
## 9 CLIPE9 Masculino Suc. Este 3 6 30 42.0 110.1 5.3
## 10 CLIPE10 Masculino Suc. Este 1 4 27 43.0 96.5 1.2
## 11 CLIPE11 Masculino Suc. Este 3 5 28 44.8 88.3 1.7
## 13 CLIPE13 Femenino Suc. Norte 2 4 26 27.0 89.7 0.8
## 14 CLIPE14 Masculino Suc. Norte 1 2 33 30.1 88.8 0.4
## 15 CLIPE15 Masculino Suc. Norte 4 5 21 26.5 84.0 2.8
## 16 CLIPE16 Femenino Suc. Norte 3 5 40 28.3 84.2 5.8
## 17 CLIPE17 Femenino Suc. Norte 3 6 25 29.7 91.7 4.2
## 18 CLIPE18 Femenino Suc. Norte 4 5 38 32.5 74.1 0.8
## 19 CLIPE19 Femenino Suc. Norte 4 4 35 24.7 88.8 9.5
## 20 CLIPE20 Femenino Suc. Norte 1 6 31 24.8 91.6 2.6
## 21 CLIPE21 Femenino Suc. Norte 3 7 28 32.2 80.0 4.5
## 22 CLIPE22 Femenino Suc. Norte 1 1 26 26.7 88.4 1.3
## 23 CLIPE23 Masculino Suc. Norte 7 9 26 31.4 78.5 2.6
## 24 CLIPE24 Femenino Suc. Norte 3 5 33 31.1 88.3 5.5
## 25 CLIPE25 Femenino Suc. Norte 3 6 34 26.7 85.6 2.7
## 27 CLIPE27 Femenino Suc. Norte 4 6 26 27.2 78.8 0.5
## 28 CLIPE28 Femenino Suc. Norte 5 7 39 28.4 81.6 1.3
## 29 CLIPE29 Masculino Suc. Sur 1 1 31 49.6 86.3 5.3
## 30 CLIPE30 Femenino Suc. Sur 5 7 22 28.6 83.8 1.2
## 31 CLIPE31 Femenino Suc. Sur 2 4 28 37.3 90.7 1.7
## 33 CLIPE33 Masculino Suc. Sur 3 3 22 38.0 99.3 3.3
## 34 CLIPE34 Femenino Suc. Sur 4 4 40 41.7 83.3 0.3
## 35 CLIPE35 Femenino Suc. Sur 1 1 34 38.3 97.3 1.7
## 37 CLIPE37 Masculino Suc. Sur 2 3 34 33.2 94.3 3.9
## 39 CLIPE39 Femenino Suc. Sur 4 7 29 41.7 78.8 2.4
## 40 CLIPE40 Femenino Suc. Sur 4 5 33 34.6 100.2 0.3
## 41 CLIPE41 Masculino Suc. Sur 3 8 23 47.5 82.5 2.7
## 43 CLIPE43 Femenino Suc. Sur 3 8 24 36.8 94.5 4.5
## 44 CLIPE44 Masculino Suc. Sur 1 1 32 43.6 86.3 4.6
## 45 CLIPE45 Masculino Suc. Sur 2 3 32 35.2 88.3 8.2
## 46 CLIPE46 Femenino Suc. Sur 7 8 27 37.8 83.7 5.2
## 47 CLIPE47 Masculino Suc. Sur 3 4 37 37.7 83.8 4.0
## 50 CLIPE50 Masculino Suc. Centro 7 8 35 33.6 84.8 2.7
## 52 CLIPE52 Masculino Suc. Centro 5 5 34 50.4 119.1 0.5
## 53 CLIPE53 Masculino Suc. Centro 8 8 38 36.2 103.4 1.6
## 54 CLIPE54 Femenino Suc. Centro 4 4 39 39.8 109.6 1.7
## 55 CLIPE55 Masculino Suc. Centro 4 5 37 62.2 106.0 0.8
## 56 CLIPE56 Masculino Suc. Centro 3 4 32 45.6 100.6 2.2
## 57 CLIPE57 Femenino Suc. Centro 7 7 37 48.6 103.0 4.8
## 58 CLIPE58 Masculino Suc. Centro 5 5 25 39.7 110.5 2.2
## 59 CLIPE59 Femenino Suc. Centro 2 3 26 25.7 112.4 4.0
## 61 CLIPE61 Femenino Suc. Centro 8 8 40 46.3 112.5 1.5
## 62 CLIPE62 Masculino Suc. Centro 4 4 30 43.6 108.3 2.8
## 63 CLIPE63 Femenino Suc. Centro 8 8 28 55.2 106.0 3.5
## 64 CLIPE64 Masculino Suc. Centro 11 13 24 39.1 99.0 4.0
## 66 CLIPE66 Femenino Suc. Centro 4 7 21 44.1 102.5 3.1
## 67 CLIPE67 Femenino Suc. Centro 9 9 28 39.0 92.2 4.7
## 68 CLIPE68 Femenino Suc. Centro 8 8 21 52.2 110.1 3.9
## 69 CLIPE69 Masculino Suc. Centro 3 3 29 53.6 96.5 6.6
## 71 CLIPE71 Masculino Suc. Este 1 1 34 24.3 84.2 2.6
## 72 CLIPE72 Femenino Suc. Este 1 1 20 31.8 88.4 5.3
## 73 CLIPE73 Femenino Suc. Este 3 3 34 33.0 78.5 1.2
## 74 CLIPE74 Masculino Suc. Este 4 5 20 31.7 88.3 1.7
## 76 CLIPE76 Masculino Suc. Este 1 2 31 26.9 88.6 3.3
## 77 CLIPE77 Masculino Suc. Este 2 3 22 17.5 78.8 0.3
## 78 CLIPE78 Masculino Suc. Este 3 3 38 29.9 81.6 1.7
## 79 CLIPE79 Masculino Suc. Este 2 3 36 36.3 86.3 2.2
## 80 CLIPE80 Masculino Suc. Este 2 2 33 31.8 83.8 4.0
## Opinión
## 2 Bueno
## 3 Pésimo
## 5 Pésimo
## 7 Pésimo
## 8 Pésimo
## 9 Bueno
## 10 Bueno
## 11 Excelente
## 13 Excelente
## 14 Muy Bueno
## 15 Regular
## 16 Muy Bueno
## 17 Excelente
## 18 Regular
## 19 Muy Bueno
## 20 Pésimo
## 21 Muy Bueno
## 22 Bueno
## 23 Muy Bueno
## 24 Pésimo
## 25 Bueno
## 27 Excelente
## 28 Excelente
## 29 Pésimo
## 30 Muy Bueno
## 31 Muy Bueno
## 33 Muy Bueno
## 34 Regular
## 35 Pésimo
## 37 Pésimo
## 39 Muy Bueno
## 40 Muy Bueno
## 41 Excelente
## 43 Bueno
## 44 Bueno
## 45 Excelente
## 46 Regular
## 47 Muy Bueno
## 50 Regular
## 52 Excelente
## 53 Excelente
## 54 Regular
## 55 Bueno
## 56 Bueno
## 57 Excelente
## 58 Muy Bueno
## 59 Regular
## 61 Muy Bueno
## 62 Excelente
## 63 Bueno
## 64 Bueno
## 66 Pésimo
## 67 Excelente
## 68 Pésimo
## 69 Muy Bueno
## 71 Bueno
## 72 Pésimo
## 73 Bueno
## 74 Bueno
## 76 Muy Bueno
## 77 Regular
## 78 Pésimo
## 79 Muy Bueno
## 80 ExcelentePara confirmar vamos a realizar un gráfico de cajas con la nueva data
boxplot(telco_sin_atipicos$Tiempo)
Corrección por transformación
…
Corrección por imputación
…