Resumen Estadistico de la Tabla (Perdida de Clientes)

##  Plan_Internacional   Min_En_Dia    Min_Internacionales    Reclamos    
##  no:3010            Min.   :  0.0   Min.   : 0.00       Min.   :0.000  
##  si: 323            1st Qu.:143.7   1st Qu.: 8.50       1st Qu.:1.000  
##                     Median :179.4   Median :10.30       Median :1.000  
##                     Mean   :179.8   Mean   :10.24       Mean   :1.563  
##                     3rd Qu.:216.4   3rd Qu.:12.10       3rd Qu.:2.000  
##                     Max.   :350.8   Max.   :20.00       Max.   :9.000  
##  Llamadas_Internacionales Desafiliado
##  Min.   : 0.000           no:2850    
##  1st Qu.: 3.000           si: 483    
##  Median : 4.000                      
##  Mean   : 4.479                      
##  3rd Qu.: 6.000                      
##  Max.   :20.000

Analisis Bivariado y Multivariado

#Diagrama de Dispersion
plot(Perdida.de.clientes$Min_En_Dia, Perdida.de.clientes$Min_Internacionales)

Segun el diagrama se aprecia que no existe correlacion entre las variables minutos al dia y Minutos Internacionales

pairs(Perdida.de.clientes$Min_En_Dia ~ Perdida.de.clientes$Min_Internacionales)

plot(Perdida.de.clientes)

#coeficiente de Correlacion
cor(Perdida.de.clientes$Min_En_Dia, Perdida.de.clientes$Min_Internacionales)
## [1] -0.01015459

El coeficiente de correlacion es de 0.1, por lo tanto, Existe Correlacion Relativa entre Minutos al dia y minutos internacionales

str(Perdida.de.clientes)
## 'data.frame':    3333 obs. of  6 variables:
##  $ Plan_Internacional      : Factor w/ 2 levels "no","si": 1 1 1 2 2 2 1 2 1 2 ...
##  $ Min_En_Dia              : num  265 162 243 299 167 ...
##  $ Min_Internacionales     : num  10 13.7 12.2 6.6 10.1 6.3 7.5 7.1 8.7 11.2 ...
##  $ Reclamos                : int  1 1 0 2 3 0 3 0 1 0 ...
##  $ Llamadas_Internacionales: int  3 3 5 7 3 6 7 6 4 5 ...
##  $ Desafiliado             : Factor w/ 2 levels "no","si": 1 1 1 1 1 1 1 1 1 1 ...
cor(Perdida.de.clientes[,2:4])
##                      Min_En_Dia Min_Internacionales    Reclamos
## Min_En_Dia           1.00000000         -0.01015459 -0.01342319
## Min_Internacionales -0.01015459          1.00000000 -0.00963968
## Reclamos            -0.01342319         -0.00963968  1.00000000

Min dia * Min internacionales: Correlacion Debil

Min dia * reclamos: Correlacion Debil

Min Internacionales * Reclamos:Correlacion Muy debil

#Varianza
cov(Perdida.de.clientes[,2:4])
##                       Min_En_Dia Min_Internacionales    Reclamos
## Min_En_Dia          2966.6964865         -1.54414905 -0.96178959
## Min_Internacionales   -1.5441490          7.79436806 -0.03540307
## Reclamos              -0.9617896         -0.03540307  1.73051669
#library(VIM)
library(corrplot)
## corrplot 0.84 loaded
corrplot(cor(Perdida.de.clientes[,2:4]))

data(iris)
corrplot(cor(iris[,1:4]))

data(iris)
corrplot(cor(iris[,1:4]),method = c("pie"))

library(PerformanceAnalytics)
## Loading required package: xts
## Loading required package: zoo
## 
## Attaching package: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## 
## Attaching package: 'PerformanceAnalytics'
## The following object is masked from 'package:graphics':
## 
##     legend
chart.Correlation(Perdida.de.clientes[,2:4])

Se puede visualizar los diagramas de dispersion en la parte inferior de la traza principal y en la parte superior se visualizan las correlaciones