Diagrama de Pareto

Las librerías

Se utiliza la librería qcc para diagramas de pareto.

library(knitr) # Para ver tablas mas amigables en formato html markdown)
library(qcc) # Para diagrama de pareto

La siguiente práctica en R Booknote y/o Markdown genera dos diagramas de Pareto con dos conjuntos de datos difetentes. datos y datos2.

Los datos

Simulando un conjunto de desperfectos de una linea de producción de costura.

• Se simula que se tienen datos resumidos de defectos… de una linea de producción.
• Se generan dos vectores defectos y cantidades
• Se integra en un data frame a partir de los dos vectores.

defectos <- c("Piel Arrugada", "Costura con fallas ", "Reventado de piel", "Mal montada")
cantidades <-c( 99, 135, 369, 135 )
datos <- data.frame(defectos, cantidades)
kable(datos)

defectos	cantidades
Piel Arrugada	99
Costura con fallas	135
Reventado de piel	369
Mal montada	135

Generando el digrama de pareto

A partir de la variable cantidades del conjunto de datos.

pareto.chart(datos$cantidades)

##    
## Pareto chart analysis for datos$cantidades
##     Frequency Cum.Freq. Percentage Cum.Percent.
##   C 369.00000 369.00000   50.00000     50.00000
##   B 135.00000 504.00000   18.29268     68.29268
##   D 135.00000 639.00000   18.29268     86.58537
##   A  99.00000 738.00000   13.41463    100.00000

Generando datos2 aleatorios

De un conjunto de 100 datos simulados llamados muestras generados de manera aleatoria, se simula que hay una cantidad de defectos 1, 2 o 3 defectos por cada muestra.

Se visualizan los primeros seis y útimos seis registros de los 100 registros

set.seed(2020) # Semilla
muestras <- 1:100
cant.defectos <- sample(1:3, 100, replace = TRUE)

datos2 <- data.frame(muestras, cant.defectos)

kable(head(datos2))

muestras	cant.defectos
1	3
2	2
3	1
4	1
5	2
6	2

kable(tail(datos2))

	muestras	cant.defectos
95	95	1
96	96	3
97	97	3
98	98	3
99	99	2
100	100	1

Generar frecuencia de los datos2

tabla.defectos <- table(datos2$cant.defectos)

tabla.defectos

## 
##  1  2  3 
## 36 39 25

Generar diagrama de pareto para datos2

pareto.chart(tabla.defectos)

##    
## Pareto chart analysis for tabla.defectos
##     Frequency Cum.Freq. Percentage Cum.Percent.
##   2        39        39         39           39
##   1        36        75         36           75
##   3        25       100         25          100