datos_telefonia <- read.csv("https://raw.githubusercontent.com/VictorGuevaraP/Estadistica-R/master/Caso_telefon%C3%ADa.csv",
encoding = "latin1", sep = ";")
head(datos_telefonia)genero_fi <- table(datos_telefonia$Género)
genero_fi##
## Femenino Masculino
## 38 42sucursal_fi <- table(datos_telefonia$Sucursal)
sucursal_fi##
## Suc. Centro Suc. Este Suc. Norte Suc. Sur
## 23 22 16 19#Obtener frecuencias relativas #OPCION 1
genero_fi/(dim(datos_telefonia)[1])##
## Femenino Masculino
## 0.475 0.525#OPCION2
genero_hi <- prop.table(table(datos_telefonia$Género))
genero_hi##
## Femenino Masculino
## 0.475 0.525sucursal_hi <- prop.table(table(datos_telefonia$Sucursal))
sucursal_hi##
## Suc. Centro Suc. Este Suc. Norte Suc. Sur
## 0.2875 0.2750 0.2000 0.2375genero_pi <- prop.table(table(datos_telefonia$Género))*100
genero_pi##
## Femenino Masculino
## 47.5 52.5sucursal_pi <- prop.table(table(datos_telefonia$Sucursal))*100
sucursal_pi##
## Suc. Centro Suc. Este Suc. Norte Suc. Sur
## 28.75 27.50 20.00 23.75rbind(genero_fi,genero_hi,genero_pi)## Femenino Masculino
## genero_fi 38.000 42.000
## genero_hi 0.475 0.525
## genero_pi 47.500 52.500cbind(genero_fi,genero_hi,genero_pi)## genero_fi genero_hi genero_pi
## Femenino 38 0.475 47.5
## Masculino 42 0.525 52.5t(rbind(genero_fi,genero_hi,genero_pi))## genero_fi genero_hi genero_pi
## Femenino 38 0.475 47.5
## Masculino 42 0.525 52.5t(rbind(sucursal_fi,sucursal_hi,sucursal_pi))## sucursal_fi sucursal_hi sucursal_pi
## Suc. Centro 23 0.2875 28.75
## Suc. Este 22 0.2750 27.50
## Suc. Norte 16 0.2000 20.00
## Suc. Sur 19 0.2375 23.75library(summarytools)
freq(datos_telefonia)## Variable(s) ignored: Minutos, Monto, Tiempo## Frequencies
## datos_telefonia$Código
## Type: Character
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ------------- ------ --------- -------------- --------- --------------
## CLIPE1 1 1.25 1.25 1.25 1.25
## CLIPE10 1 1.25 2.50 1.25 2.50
## CLIPE11 1 1.25 3.75 1.25 3.75
## CLIPE12 1 1.25 5.00 1.25 5.00
## CLIPE13 1 1.25 6.25 1.25 6.25
## CLIPE14 1 1.25 7.50 1.25 7.50
## CLIPE15 1 1.25 8.75 1.25 8.75
## CLIPE16 1 1.25 10.00 1.25 10.00
## CLIPE17 1 1.25 11.25 1.25 11.25
## CLIPE18 1 1.25 12.50 1.25 12.50
## CLIPE19 1 1.25 13.75 1.25 13.75
## CLIPE2 1 1.25 15.00 1.25 15.00
## CLIPE20 1 1.25 16.25 1.25 16.25
## CLIPE21 1 1.25 17.50 1.25 17.50
## CLIPE22 1 1.25 18.75 1.25 18.75
## CLIPE23 1 1.25 20.00 1.25 20.00
## CLIPE24 1 1.25 21.25 1.25 21.25
## CLIPE25 1 1.25 22.50 1.25 22.50
## CLIPE26 1 1.25 23.75 1.25 23.75
## CLIPE27 1 1.25 25.00 1.25 25.00
## CLIPE28 1 1.25 26.25 1.25 26.25
## CLIPE29 1 1.25 27.50 1.25 27.50
## CLIPE3 1 1.25 28.75 1.25 28.75
## CLIPE30 1 1.25 30.00 1.25 30.00
## CLIPE31 1 1.25 31.25 1.25 31.25
## CLIPE32 1 1.25 32.50 1.25 32.50
## CLIPE33 1 1.25 33.75 1.25 33.75
## CLIPE34 1 1.25 35.00 1.25 35.00
## CLIPE35 1 1.25 36.25 1.25 36.25
## CLIPE36 1 1.25 37.50 1.25 37.50
## CLIPE37 1 1.25 38.75 1.25 38.75
## CLIPE38 1 1.25 40.00 1.25 40.00
## CLIPE39 1 1.25 41.25 1.25 41.25
## CLIPE4 1 1.25 42.50 1.25 42.50
## CLIPE40 1 1.25 43.75 1.25 43.75
## CLIPE41 1 1.25 45.00 1.25 45.00
## CLIPE42 1 1.25 46.25 1.25 46.25
## CLIPE43 1 1.25 47.50 1.25 47.50
## CLIPE44 1 1.25 48.75 1.25 48.75
## CLIPE45 1 1.25 50.00 1.25 50.00
## CLIPE46 1 1.25 51.25 1.25 51.25
## CLIPE47 1 1.25 52.50 1.25 52.50
## CLIPE48 1 1.25 53.75 1.25 53.75
## CLIPE49 1 1.25 55.00 1.25 55.00
## CLIPE5 1 1.25 56.25 1.25 56.25
## CLIPE50 1 1.25 57.50 1.25 57.50
## CLIPE51 1 1.25 58.75 1.25 58.75
## CLIPE52 1 1.25 60.00 1.25 60.00
## CLIPE53 1 1.25 61.25 1.25 61.25
## CLIPE54 1 1.25 62.50 1.25 62.50
## CLIPE55 1 1.25 63.75 1.25 63.75
## CLIPE56 1 1.25 65.00 1.25 65.00
## CLIPE57 1 1.25 66.25 1.25 66.25
## CLIPE58 1 1.25 67.50 1.25 67.50
## CLIPE59 1 1.25 68.75 1.25 68.75
## CLIPE6 1 1.25 70.00 1.25 70.00
## CLIPE60 1 1.25 71.25 1.25 71.25
## CLIPE61 1 1.25 72.50 1.25 72.50
## CLIPE62 1 1.25 73.75 1.25 73.75
## CLIPE63 1 1.25 75.00 1.25 75.00
## CLIPE64 1 1.25 76.25 1.25 76.25
## CLIPE65 1 1.25 77.50 1.25 77.50
## CLIPE66 1 1.25 78.75 1.25 78.75
## CLIPE67 1 1.25 80.00 1.25 80.00
## CLIPE68 1 1.25 81.25 1.25 81.25
## CLIPE69 1 1.25 82.50 1.25 82.50
## CLIPE7 1 1.25 83.75 1.25 83.75
## CLIPE70 1 1.25 85.00 1.25 85.00
## CLIPE71 1 1.25 86.25 1.25 86.25
## CLIPE72 1 1.25 87.50 1.25 87.50
## CLIPE73 1 1.25 88.75 1.25 88.75
## CLIPE74 1 1.25 90.00 1.25 90.00
## CLIPE75 1 1.25 91.25 1.25 91.25
## CLIPE76 1 1.25 92.50 1.25 92.50
## CLIPE77 1 1.25 93.75 1.25 93.75
## CLIPE78 1 1.25 95.00 1.25 95.00
## CLIPE79 1 1.25 96.25 1.25 96.25
## CLIPE8 1 1.25 97.50 1.25 97.50
## CLIPE80 1 1.25 98.75 1.25 98.75
## CLIPE9 1 1.25 100.00 1.25 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Género
## Type: Character
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## --------------- ------ --------- -------------- --------- --------------
## Femenino 38 47.50 47.50 47.50 47.50
## Masculino 42 52.50 100.00 52.50 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Sucursal
## Type: Character
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------------- ------ --------- -------------- --------- --------------
## Suc. Centro 23 28.75 28.75 28.75 28.75
## Suc. Este 22 27.50 56.25 27.50 56.25
## Suc. Norte 16 20.00 76.25 20.00 76.25
## Suc. Sur 19 23.75 100.00 23.75 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Reclamos
## Type: Integer
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
## 1 12 15.00 15.00 15.00 15.00
## 2 15 18.75 33.75 18.75 33.75
## 3 21 26.25 60.00 26.25 60.00
## 4 12 15.00 75.00 15.00 75.00
## 5 8 10.00 85.00 10.00 85.00
## 6 1 1.25 86.25 1.25 86.25
## 7 4 5.00 91.25 5.00 91.25
## 8 5 6.25 97.50 6.25 97.50
## 9 1 1.25 98.75 1.25 98.75
## 11 1 1.25 100.00 1.25 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Llamadas
## Type: Integer
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
## 1 6 7.50 7.50 7.50 7.50
## 2 7 8.75 16.25 8.75 16.25
## 3 12 15.00 31.25 15.00 31.25
## 4 13 16.25 47.50 16.25 47.50
## 5 12 15.00 62.50 15.00 62.50
## 6 7 8.75 71.25 8.75 71.25
## 7 9 11.25 82.50 11.25 82.50
## 8 10 12.50 95.00 12.50 95.00
## 9 3 3.75 98.75 3.75 98.75
## 13 1 1.25 100.00 1.25 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Edad
## Type: Integer
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## ----------- ------ --------- -------------- --------- --------------
## 20 4 5.00 5.00 5.00 5.00
## 21 4 5.00 10.00 5.00 10.00
## 22 4 5.00 15.00 5.00 15.00
## 23 1 1.25 16.25 1.25 16.25
## 24 3 3.75 20.00 3.75 20.00
## 25 2 2.50 22.50 2.50 22.50
## 26 6 7.50 30.00 7.50 30.00
## 27 3 3.75 33.75 3.75 33.75
## 28 7 8.75 42.50 8.75 42.50
## 29 4 5.00 47.50 5.00 47.50
## 30 2 2.50 50.00 2.50 50.00
## 31 3 3.75 53.75 3.75 53.75
## 32 4 5.00 58.75 5.00 58.75
## 33 6 7.50 66.25 7.50 66.25
## 34 6 7.50 73.75 7.50 73.75
## 35 4 5.00 78.75 5.00 78.75
## 36 2 2.50 81.25 2.50 81.25
## 37 3 3.75 85.00 3.75 85.00
## 38 3 3.75 88.75 3.75 88.75
## 39 3 3.75 92.50 3.75 92.50
## 40 6 7.50 100.00 7.50 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00
##
## datos_telefonia$Opinión
## Type: Character
##
## Freq % Valid % Valid Cum. % Total % Total Cum.
## --------------- ------ --------- -------------- --------- --------------
## Bueno 15 18.75 18.75 18.75 18.75
## Excelente 14 17.50 36.25 17.50 36.25
## Muy Bueno 18 22.50 58.75 22.50 58.75
## Pésimo 24 30.00 88.75 30.00 88.75
## Regular 9 11.25 100.00 11.25 100.00
## <NA> 0 0.00 100.00
## Total 80 100.00 100.00 100.00 100.00#q(telco_df)