Estadisticas para las ciencias analiticas

Problema 2:

El gerente de un restaurante de barrio esta preocupado por la menor cantidad de clientes que frecuentan su restaurante. las quejas han ido en aumento y les gustaria saber que problemas abordar y presentar los hallazgos de una manera que sus empleados puedan entender.

Sevidor descortes: 12

Servicio lento: 42

Cena fria: 5

Mesas estrechas: 20

Atmosfera: 10

Paso 1: Creamos la Base de Datos "reporte"

reporte<-c(rep("descortes",12), rep("lento",42), rep("fria",5),
rep("estrecho",20),rep("atmosfera",10))

reporte
##  [1] "descortes" "descortes" "descortes" "descortes" "descortes" "descortes"
##  [7] "descortes" "descortes" "descortes" "descortes" "descortes" "descortes"
## [13] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [19] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [25] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [31] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [37] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [43] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [49] "lento"     "lento"     "lento"     "lento"     "lento"     "lento"    
## [55] "fria"      "fria"      "fria"      "fria"      "fria"      "estrecho" 
## [61] "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho" 
## [67] "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho" 
## [73] "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho"  "estrecho" 
## [79] "estrecho"  "atmosfera" "atmosfera" "atmosfera" "atmosfera" "atmosfera"
## [85] "atmosfera" "atmosfera" "atmosfera" "atmosfera" "atmosfera"
summary(reporte)
##    Length     Class      Mode 
##        89 character character
library(qcc)
## Warning: package 'qcc' was built under R version 4.0.5
## Package 'qcc' version 2.7
## Type 'citation("qcc")' for citing this R package in publications.

Asimismo utilizaremos el paquete "qcc" de la libreria.

Paso 2: Realizamos el diagrama de Pareto

quejas<-table(reporte)
pareto.chart(quejas, main= "Diagrama de Pareto",xlab="Tipo de problema", ylab="Frecuencia de problemas", ylab2="Porcentaje de los problemas")

##            
## Pareto chart analysis for quejas
##              Frequency  Cum.Freq. Percentage Cum.Percent.
##   lento      42.000000  42.000000  47.191011    47.191011
##   estrecho   20.000000  62.000000  22.471910    69.662921
##   descortes  12.000000  74.000000  13.483146    83.146067
##   atmosfera  10.000000  84.000000  11.235955    94.382022
##   fria        5.000000  89.000000   5.617978   100.000000