
Importar base de datos
#file.choose()
carton <- read.csv("/Users/Karen/Downloads/FORM - Produccion Carton.csv")
Importar librerias
library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(kableExtra)
##
## Attaching package: 'kableExtra'
## The following object is masked from 'package:dplyr':
##
## group_rows
library(forcats)
library(ggplot2)
library(dlookr)
##
## Attaching package: 'dlookr'
## The following object is masked from 'package:base':
##
## transform
library(foreign)
library(janitor)
##
## Attaching package: 'janitor'
## The following objects are masked from 'package:stats':
##
## chisq.test, fisher.test
library(Hmisc)
## Loading required package: lattice
## Loading required package: survival
## Loading required package: Formula
##
## Attaching package: 'Hmisc'
## The following object is masked from 'package:dlookr':
##
## describe
## The following objects are masked from 'package:dplyr':
##
## src, summarize
## The following objects are masked from 'package:base':
##
## format.pval, units
library(psych)
##
## Attaching package: 'psych'
## The following object is masked from 'package:Hmisc':
##
## describe
## The following object is masked from 'package:dlookr':
##
## describe
## The following objects are masked from 'package:ggplot2':
##
## %+%, alpha
library(naniar)
library(readr)
library(jtools)
##
## Attaching package: 'jtools'
## The following object is masked from 'package:Hmisc':
##
## %nin%
library(gmodels)
Entender la base de datos
Variables
¿Cuantas variables y cuantos registros tiene la base de
datos? 14 variables y 2568 registros
str (carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : chr "199" "57" "68" "192" ...
## $ TMO..MIN. : chr "15" "10" "10" "15" ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : chr "201" "116" "69" "49" ...
## $ INICIO.SEP.UP : chr "0.375" "0.393055556" "0.418055556" "0.425" ...
## $ FIN.INICIO.DE.SEP.UP: chr "0.383333333" "0.396527778" "0.422916667" "10.17" ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : chr "01/08/2022" "01/08/2022" "01/08/2022" "01/08/2022" ...
summary (carton)
## CLIENTE ID.FORM PRODUCTO PIEZAS.PROG.
## Length:2568 Length:2568 Length:2568 Length:2568
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## TMO..MIN. HR..FIN ESTACION.ARRANQUE Laminas.procesadas
## Length:2568 Min. : 0.0000 Length:2568 Length:2568
## Class :character 1st Qu.: 0.0000 Class :character Class :character
## Mode :character Median : 0.2448 Mode :character Mode :character
## Mean : 0.2541
## 3rd Qu.: 0.4375
## Max. :11.1500
## INICIO.SEP.UP FIN.INICIO.DE.SEP.UP INICIO.de.PROCESO FIN.de.PROCESO
## Length:2568 Length:2568 Length:2568 Length:2568
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## TIEMPO.CALIDAD FECHA
## Min. : 0.0000 Length:2568
## 1st Qu.: 0.0000 Class :character
## Median : 1.0000 Mode :character
## Mean : 0.7055
## 3rd Qu.: 1.0000
## Max. :25.0000
Tipos de variables
variable <- c("`Cliente`","`ID FORM`","`Producto`", "`Piezas Prog`", "`Tiempo minimo`", "`Hora fin`","`Estacion arranque`", "`Laminas procesadas`", "`Inicio sep`", "`Fin inicio sep`", "`Inicio de proceso`", "`Fin de proceso`", "`Tiempo calidad`","`Fecha`")
tipo <- c("cualitativo", "cualitativo","cualitativo", "cuantitativo (discreto)", "cuantitativo (continuo)", "cuantitativo (continuo)", "cualitativo", "cuantitativo (discreto)", "cuantitativo (continuo)","cuantitativo (continuo)","cuantitativo (continuo)", "cuantitativo (continuo)", "cuantitativo (discreto)", "cualitativo")
table <- data.frame (variable, tipo)
knitr::kable(table)
|
variable
|
tipo
|
Cliente
|
cualitativo
|
ID FORM
|
cualitativo
|
Producto
|
cualitativo
|
Piezas Prog
|
cuantitativo (discreto)
|
Tiempo minimo
|
cuantitativo (continuo)
|
Hora fin
|
cuantitativo (continuo)
|
Estacion arranque
|
cualitativo
|
Laminas procesadas
|
cuantitativo (discreto)
|
Inicio sep
|
cuantitativo (continuo)
|
Fin inicio sep
|
cuantitativo (continuo)
|
Inicio de proceso
|
cuantitativo (continuo)
|
Fin de proceso
|
cuantitativo (continuo)
|
Tiempo calidad
|
cuantitativo (discreto)
|
Fecha
|
cualitativo
|
Escala de medición
variables <- c("`Cliente`","`ID FORM`","`Producto`", "`Piezas Prog`", "`Tiempo minimo`", "`Hora fin`","`Estacion arranque`", "`Laminas procesadas`", "`Inicio sep`", "`Fin inicio sep`", "`Inicio de proceso`", "`Fin de proceso`", "`Tiempo calidad`","`Fecha`")
tipos <- c("cualitativo", "cualitativo","cualitativo", "cuantitativo (discreto)", "cuantitativo (continuo)", "cuantitativo (continuo)", "cualitativo", "cuantitativo (discreto)", "cuantitativo (continuo)","cuantitativo (continuo)","cuantitativo (continuo)", "cuantitativo (continuo)", "cuantitativo (discreto)", "cualitativo")
escalas <- c("nominal", "nominal", "nominal", "razon", "intervalo", "intervalo", "nominal", "razon", "intervalo", "intervalo", "intervalo", "intervalo", "razon", "ordinal")
table1 <- data.frame (variables, tipos, escalas)
knitr::kable(table1)
|
variables
|
tipos
|
escalas
|
Cliente
|
cualitativo
|
nominal
|
ID FORM
|
cualitativo
|
nominal
|
Producto
|
cualitativo
|
nominal
|
Piezas Prog
|
cuantitativo (discreto)
|
razon
|
Tiempo minimo
|
cuantitativo (continuo)
|
intervalo
|
Hora fin
|
cuantitativo (continuo)
|
intervalo
|
Estacion arranque
|
cualitativo
|
nominal
|
Laminas procesadas
|
cuantitativo (discreto)
|
razon
|
Inicio sep
|
cuantitativo (continuo)
|
intervalo
|
Fin inicio sep
|
cuantitativo (continuo)
|
intervalo
|
Inicio de proceso
|
cuantitativo (continuo)
|
intervalo
|
Fin de proceso
|
cuantitativo (continuo)
|
intervalo
|
Tiempo calidad
|
cuantitativo (discreto)
|
razon
|
Fecha
|
cualitativo
|
ordinal
|
Limpieza de la base
Técnica 1. Convertir tipos de datos
carton$FECHA <-as.Date(carton$FECHA,format ="%d/%m/%Y")
tibble(carton)
## # A tibble: 2,568 × 14
## CLIENTE ID.FORM PRODU…¹ PIEZA…² TMO..…³ HR..FIN ESTAC…⁴ Lamin…⁵ INICI…⁶
## <chr> <chr> <chr> <chr> <chr> <dbl> <chr> <chr> <chr>
## 1 VARROC VL-017-13938 763 . … 199 15 0.385 C1 201 0.375
## 2 VARROC VL-017-13936 747 KI… 57 10 0.392 C1Y2 116 0.3930…
## 3 VARROC VL-017-14729 747 KI… 68 10 0.399 C1Y2 69 0.4180…
## 4 DENSO <NA> TOYOTA… 192 15 0.410 C1 49 0.425
## 5 DENSO <NA> TOYOTA… 192 15 0.420 C1 49 0.4305…
## 6 YANFENG 19162 MODELO… 400 30 0.441 C1 801 10.48
## 7 YANFENG 00-68-8160-1… MODELO… 80 15 0.451 C1 41 0.4833…
## 8 YANFENG 00-68-8160-1… MODELO… 104 15 0.462 C1 53 0
## 9 YANFENG 00-68-8160-1… MODELO… 104 15 0.472 C1 53 0
## 10 YANFENG 00-68-8160-1… MODELO… 160 20 0.486 C1 55 0.5118…
## # … with 2,558 more rows, 5 more variables: FIN.INICIO.DE.SEP.UP <chr>,
## # INICIO.de.PROCESO <chr>, FIN.de.PROCESO <chr>, TIEMPO.CALIDAD <dbl>,
## # FECHA <date>, and abbreviated variable names ¹PRODUCTO, ²PIEZAS.PROG.,
## # ³TMO..MIN., ⁴ESTACION.ARRANQUE, ⁵Laminas.procesadas, ⁶INICIO.SEP.UP
carton$PIEZAS.PROG. <-as.numeric(carton$PIEZAS.PROG.)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : chr "15" "10" "10" "15" ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : chr "201" "116" "69" "49" ...
## $ INICIO.SEP.UP : chr "0.375" "0.393055556" "0.418055556" "0.425" ...
## $ FIN.INICIO.DE.SEP.UP: chr "0.383333333" "0.396527778" "0.422916667" "10.17" ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$TMO..MIN. <-as.numeric(carton$TMO..MIN.)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : chr "201" "116" "69" "49" ...
## $ INICIO.SEP.UP : chr "0.375" "0.393055556" "0.418055556" "0.425" ...
## $ FIN.INICIO.DE.SEP.UP: chr "0.383333333" "0.396527778" "0.422916667" "10.17" ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$Laminas.procesadas <-as.numeric(carton$Laminas.procesadas)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : num 201 116 69 49 49 801 41 53 53 55 ...
## $ INICIO.SEP.UP : chr "0.375" "0.393055556" "0.418055556" "0.425" ...
## $ FIN.INICIO.DE.SEP.UP: chr "0.383333333" "0.396527778" "0.422916667" "10.17" ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$INICIO.SEP.UP <-as.numeric(carton$INICIO.SEP.UP)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : num 201 116 69 49 49 801 41 53 53 55 ...
## $ INICIO.SEP.UP : num 0.375 0.393 0.418 0.425 0.431 ...
## $ FIN.INICIO.DE.SEP.UP: chr "0.383333333" "0.396527778" "0.422916667" "10.17" ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$FIN.INICIO.DE.SEP.UP <-as.numeric(carton$FIN.INICIO.DE.SEP.UP)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : num 201 116 69 49 49 801 41 53 53 55 ...
## $ INICIO.SEP.UP : num 0.375 0.393 0.418 0.425 0.431 ...
## $ FIN.INICIO.DE.SEP.UP: num 0.383 0.397 0.423 10.17 0.435 ...
## $ INICIO.de.PROCESO : chr "0.384027778" "0.397222222" "0.422916667" "0.429166667" ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$INICIO.de.PROCESO <-as.numeric(carton$INICIO.de.PROCESO)
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : num 201 116 69 49 49 801 41 53 53 55 ...
## $ INICIO.SEP.UP : num 0.375 0.393 0.418 0.425 0.431 ...
## $ FIN.INICIO.DE.SEP.UP: num 0.383 0.397 0.423 10.17 0.435 ...
## $ INICIO.de.PROCESO : num 0.384 0.397 0.423 0.429 0.435 ...
## $ FIN.de.PROCESO : chr "0.393055556" "0.411805556" "44905" "0.430555556" ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
carton$FIN.de.PROCESO <-as.numeric(carton$FIN.de.PROCESO )
## Warning: NAs introduced by coercion
str(carton)
## 'data.frame': 2568 obs. of 14 variables:
## $ CLIENTE : chr "VARROC" "VARROC" "VARROC" "DENSO" ...
## $ ID.FORM : chr "VL-017-13938" "VL-017-13936" "VL-017-14729" NA ...
## $ PRODUCTO : chr "763 . KIT. CAJA." "747 KIT. CAJA HSC. ( 2 Partes)" "747 KIT. TAPA." "TOYOTA. MCV. Insterto D 2R. CORTE. 1 Golpe = 12 piezas. ( 9 Pza. / Celda)." ...
## $ PIEZAS.PROG. : num 199 57 68 192 192 400 80 104 104 160 ...
## $ TMO..MIN. : num 15 10 10 15 15 30 15 15 15 20 ...
## $ HR..FIN : num 0.385 0.392 0.399 0.41 0.42 ...
## $ ESTACION.ARRANQUE : chr "C1" "C1Y2" "C1Y2" "C1" ...
## $ Laminas.procesadas : num 201 116 69 49 49 801 41 53 53 55 ...
## $ INICIO.SEP.UP : num 0.375 0.393 0.418 0.425 0.431 ...
## $ FIN.INICIO.DE.SEP.UP: num 0.383 0.397 0.423 10.17 0.435 ...
## $ INICIO.de.PROCESO : num 0.384 0.397 0.423 0.429 0.435 ...
## $ FIN.de.PROCESO : num 3.93e-01 4.12e-01 4.49e+04 4.31e-01 1.04e+01 ...
## $ TIEMPO.CALIDAD : num 1 1 1 1 1 1 1 1 1 1 ...
## $ FECHA : Date, format: "2022-08-01" "2022-08-01" ...
Técnica 2. Valores faltantes
#¿Tenemos NA en la base de datos?
sum(is.na(carton))
## [1] 414
#¿Tenemos NA por variable?
sapply(carton,function(x)sum(is.na(x)))
## CLIENTE ID.FORM PRODUCTO
## 19 99 0
## PIEZAS.PROG. TMO..MIN. HR..FIN
## 163 1 0
## ESTACION.ARRANQUE Laminas.procesadas INICIO.SEP.UP
## 0 99 6
## FIN.INICIO.DE.SEP.UP INICIO.de.PROCESO FIN.de.PROCESO
## 6 8 13
## TIEMPO.CALIDAD FECHA
## 0 0
#En caso de tener, borrar los registros NA
carton <- na.omit(carton)
summary(carton)
## CLIENTE ID.FORM PRODUCTO PIEZAS.PROG.
## Length:2160 Length:2160 Length:2160 Min. : 1.0
## Class :character Class :character Class :character 1st Qu.: 100.0
## Mode :character Mode :character Mode :character Median : 184.0
## Mean : 185.2
## 3rd Qu.: 200.0
## Max. :1280.0
## TMO..MIN. HR..FIN ESTACION.ARRANQUE Laminas.procesadas
## Min. : 0.00 Min. : 0.0000 Length:2160 Min. : 0.0
## 1st Qu.: 10.00 1st Qu.: 0.0000 Class :character 1st Qu.: 0.0
## Median : 15.00 Median : 0.2830 Mode :character Median : 36.0
## Mean : 17.14 Mean : 0.2675 Mean : 110.1
## 3rd Qu.: 25.00 3rd Qu.: 0.4444 3rd Qu.: 152.0
## Max. :150.00 Max. :11.1500 Max. :44839.0
## INICIO.SEP.UP FIN.INICIO.DE.SEP.UP INICIO.de.PROCESO FIN.de.PROCESO
## Min. : 0.00 Min. : 0.00 Min. : 0.00 Min. : 0.00
## 1st Qu.: 0.00 1st Qu.: 0.00 1st Qu.: 0.00 1st Qu.: 0.00
## Median : 0.00 Median : 0.00 Median : 0.13 Median : 0.13
## Mean : 354.15 Mean : 229.28 Mean : 375.65 Mean : 518.90
## 3rd Qu.: 0.38 3rd Qu.: 0.38 3rd Qu.: 0.43 3rd Qu.: 0.44
## Max. :44906.00 Max. :44906.00 Max. :44907.00 Max. :44906.00
## TIEMPO.CALIDAD FECHA
## Min. : 0.0000 Min. :2022-08-01
## 1st Qu.: 0.0000 1st Qu.:2022-08-09
## Median : 1.0000 Median :2022-08-17
## Mean : 0.6885 Mean :2022-08-16
## 3rd Qu.: 1.0000 3rd Qu.:2022-08-24
## Max. :22.0000 Max. :2022-08-31
Reflexión
Análisis estadistico descriptivo
describe (carton)
## Warning in FUN(newX[, i], ...): no non-missing arguments to min; returning Inf
## Warning in FUN(newX[, i], ...): no non-missing arguments to max; returning -Inf
## vars n mean sd median trimmed mad min
## CLIENTE* 1 2160 4.95 2.14 5.00 4.93 1.48 1
## ID.FORM* 2 2160 114.01 63.74 120.00 113.07 77.10 1
## PRODUCTO* 3 2160 143.13 87.01 136.00 143.05 110.45 1
## PIEZAS.PROG. 4 2160 185.21 153.40 184.00 164.58 124.54 1
## TMO..MIN. 5 2160 17.14 15.16 15.00 15.29 14.83 0
## HR..FIN 6 2160 0.27 0.39 0.28 0.26 0.28 0
## ESTACION.ARRANQUE* 7 2160 11.29 4.50 13.00 11.74 4.45 1
## Laminas.procesadas 8 2160 110.08 971.60 36.00 64.17 53.37 0
## INICIO.SEP.UP 9 2160 354.15 3956.83 0.00 0.11 0.00 0
## FIN.INICIO.DE.SEP.UP 10 2160 229.28 3187.47 0.00 0.11 0.00 0
## INICIO.de.PROCESO 11 2160 375.65 4072.42 0.13 0.20 0.20 0
## FIN.de.PROCESO 12 2160 518.90 4790.58 0.13 0.20 0.20 0
## TIEMPO.CALIDAD 13 2160 0.69 1.12 1.00 0.61 0.00 0
## FECHA 14 2160 NaN NA NA NaN NA Inf
## max range skew kurtosis se
## CLIENTE* 9.00 8.00 0.15 -0.12 0.05
## ID.FORM* 241.00 240.00 0.04 -1.03 1.37
## PRODUCTO* 287.00 286.00 0.05 -1.23 1.87
## PIEZAS.PROG. 1280.00 1279.00 2.12 7.47 3.30
## TMO..MIN. 150.00 150.00 1.74 8.24 0.33
## HR..FIN 11.15 11.15 20.51 574.68 0.01
## ESTACION.ARRANQUE* 16.00 15.00 -0.57 -1.01 0.10
## Laminas.procesadas 44839.00 44839.00 45.17 2076.44 20.91
## INICIO.SEP.UP 44906.00 44906.00 11.13 121.95 85.14
## FIN.INICIO.DE.SEP.UP 44906.00 44906.00 13.89 191.16 68.58
## INICIO.de.PROCESO 44907.00 44907.00 10.81 114.88 87.62
## FIN.de.PROCESO 44906.00 44906.00 9.13 81.34 103.08
## TIEMPO.CALIDAD 22.00 22.00 10.09 151.87 0.02
## FECHA -Inf -Inf NA NA NA
Tabla de frecuencia
proportion <- prop.table(table(carton$CLIENTE,carton$ESTACION.ARRANQUE))
proportion %>%
kbl() %>%
kable_styling()
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0.0000000
|
0.0004630
|
0.000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0097222
|
0.0194444
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0055556
|
0.0027778
|
0.0000000
|
0.0592593
|
|
HELLA
|
0.0000000
|
0.0000000
|
0.000000
|
0.0055556
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0055556
|
0.0009259
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0194444
|
0.0004630
|
0.0000000
|
0.0000000
|
|
MERIDIAN LIGHTWEIGHT
|
0.0000000
|
0.0000000
|
0.000000
|
0.0069444
|
0.0009259
|
0.0023148
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0000000
|
|
STABILUS 1
|
0.0000000
|
0.0152778
|
0.000000
|
0.0203704
|
0.0023148
|
0.0180556
|
0.0078704
|
0.0000000
|
0.0439815
|
0.0013889
|
0.0050926
|
0.0000000
|
0.0601852
|
0.0000000
|
0.0476852
|
0.0925926
|
|
STABILUS 3
|
0.0037037
|
0.0046296
|
0.000000
|
0.0004630
|
0.0000000
|
0.0046296
|
0.0000000
|
0.0004630
|
0.0013889
|
0.0000000
|
0.0013889
|
0.0000000
|
0.0666667
|
0.0000000
|
0.0597222
|
0.0425926
|
|
TRMX
|
0.0000000
|
0.0037037
|
0.000000
|
0.0000000
|
0.0000000
|
0.0199074
|
0.0148148
|
0.0310185
|
0.0060185
|
0.0000000
|
0.0027778
|
0.0000000
|
0.0268519
|
0.0000000
|
0.0000000
|
0.0666667
|
|
VARROC
|
0.0000000
|
0.0087963
|
0.000463
|
0.0106481
|
0.0000000
|
0.0152778
|
0.0060185
|
0.0041667
|
0.0000000
|
0.0004630
|
0.0120370
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0000000
|
0.0041667
|
|
VL-017-14086
|
0.0000000
|
0.0000000
|
0.000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
|
YANFENG
|
0.0000000
|
0.0120370
|
0.000000
|
0.0236111
|
0.0013889
|
0.0129630
|
0.0134259
|
0.0050926
|
0.0217593
|
0.0009259
|
0.0138889
|
0.0018519
|
0.0092593
|
0.0027778
|
0.0000000
|
0.0009259
|
Tabla cruzada
proportion %>%
kbl() %>%
kable_material (c("striped","hover"))
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0.0000000
|
0.0004630
|
0.000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0097222
|
0.0194444
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0055556
|
0.0027778
|
0.0000000
|
0.0592593
|
|
HELLA
|
0.0000000
|
0.0000000
|
0.000000
|
0.0055556
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0055556
|
0.0009259
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0194444
|
0.0004630
|
0.0000000
|
0.0000000
|
|
MERIDIAN LIGHTWEIGHT
|
0.0000000
|
0.0000000
|
0.000000
|
0.0069444
|
0.0009259
|
0.0023148
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0000000
|
|
STABILUS 1
|
0.0000000
|
0.0152778
|
0.000000
|
0.0203704
|
0.0023148
|
0.0180556
|
0.0078704
|
0.0000000
|
0.0439815
|
0.0013889
|
0.0050926
|
0.0000000
|
0.0601852
|
0.0000000
|
0.0476852
|
0.0925926
|
|
STABILUS 3
|
0.0037037
|
0.0046296
|
0.000000
|
0.0004630
|
0.0000000
|
0.0046296
|
0.0000000
|
0.0004630
|
0.0013889
|
0.0000000
|
0.0013889
|
0.0000000
|
0.0666667
|
0.0000000
|
0.0597222
|
0.0425926
|
|
TRMX
|
0.0000000
|
0.0037037
|
0.000000
|
0.0000000
|
0.0000000
|
0.0199074
|
0.0148148
|
0.0310185
|
0.0060185
|
0.0000000
|
0.0027778
|
0.0000000
|
0.0268519
|
0.0000000
|
0.0000000
|
0.0666667
|
|
VARROC
|
0.0000000
|
0.0087963
|
0.000463
|
0.0106481
|
0.0000000
|
0.0152778
|
0.0060185
|
0.0041667
|
0.0000000
|
0.0004630
|
0.0120370
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0000000
|
0.0041667
|
|
VL-017-14086
|
0.0000000
|
0.0000000
|
0.000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
|
YANFENG
|
0.0000000
|
0.0120370
|
0.000000
|
0.0236111
|
0.0013889
|
0.0129630
|
0.0134259
|
0.0050926
|
0.0217593
|
0.0009259
|
0.0138889
|
0.0018519
|
0.0092593
|
0.0027778
|
0.0000000
|
0.0009259
|
location <- CrossTable(carton$CLIENTE, carton$ESTACION.ARRANQUE, prop.t=TRUE, prop.r=TRUE, prop.c=TRUE)
##
##
## Cell Contents
## |-------------------------|
## | N |
## | Chi-square contribution |
## | N / Row Total |
## | N / Col Total |
## | N / Table Total |
## |-------------------------|
##
##
## Total Observations in Table: 2160
##
##
## | carton$ESTACION.ARRANQUE
## carton$CLIENTE | C.N.C. | C1 | C12 | C1Y2 | C2 | C3 | CAJAS | CELDAS | FLEXO | LAMINADO | RANURADORA | RETORNABLE | ROTATIVA | SIERRA | STABILUS | TROQUEL | Row Total |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## DENSO | 0 | 1 | 0 | 1 | 0 | 0 | 21 | 42 | 0 | 0 | 0 | 0 | 12 | 6 | 0 | 128 | 211 |
## | 0.781 | 7.581 | 0.098 | 12.429 | 0.977 | 15.630 | 9.249 | 56.249 | 15.630 | 0.586 | 7.424 | 0.781 | 19.291 | 9.252 | 22.663 | 91.860 | |
## | 0.000 | 0.005 | 0.000 | 0.005 | 0.000 | 0.000 | 0.100 | 0.199 | 0.000 | 0.000 | 0.000 | 0.000 | 0.057 | 0.028 | 0.000 | 0.607 | 0.098 |
## | 0.000 | 0.010 | 0.000 | 0.007 | 0.000 | 0.000 | 0.188 | 0.294 | 0.000 | 0.000 | 0.000 | 0.000 | 0.030 | 0.316 | 0.000 | 0.223 | |
## | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.010 | 0.019 | 0.000 | 0.000 | 0.000 | 0.000 | 0.006 | 0.003 | 0.000 | 0.059 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## HELLA | 0 | 0 | 0 | 12 | 0 | 2 | 0 | 12 | 2 | 0 | 0 | 4 | 42 | 1 | 0 | 0 | 75 |
## | 0.278 | 3.368 | 0.035 | 9.316 | 0.347 | 2.276 | 3.889 | 9.967 | 2.276 | 0.208 | 2.639 | 49.878 | 55.228 | 0.176 | 8.056 | 19.965 | |
## | 0.000 | 0.000 | 0.000 | 0.160 | 0.000 | 0.027 | 0.000 | 0.160 | 0.027 | 0.000 | 0.000 | 0.053 | 0.560 | 0.013 | 0.000 | 0.000 | 0.035 |
## | 0.000 | 0.000 | 0.000 | 0.082 | 0.000 | 0.013 | 0.000 | 0.084 | 0.013 | 0.000 | 0.000 | 0.500 | 0.103 | 0.053 | 0.000 | 0.000 | |
## | 0.000 | 0.000 | 0.000 | 0.006 | 0.000 | 0.001 | 0.000 | 0.006 | 0.001 | 0.000 | 0.000 | 0.002 | 0.019 | 0.000 | 0.000 | 0.000 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## MERIDIAN LIGHTWEIGHT | 0 | 0 | 0 | 15 | 2 | 5 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 2 | 0 | 0 | 24 |
## | 0.089 | 1.078 | 0.011 | 109.388 | 32.111 | 5.840 | 1.244 | 1.589 | 1.778 | 0.067 | 0.844 | 0.089 | 4.511 | 15.158 | 2.578 | 6.389 | |
## | 0.000 | 0.000 | 0.000 | 0.625 | 0.083 | 0.208 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.083 | 0.000 | 0.000 | 0.011 |
## | 0.000 | 0.000 | 0.000 | 0.102 | 0.200 | 0.031 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.105 | 0.000 | 0.000 | |
## | 0.000 | 0.000 | 0.000 | 0.007 | 0.001 | 0.002 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.001 | 0.000 | 0.000 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## STABILUS 1 | 0 | 33 | 0 | 44 | 5 | 39 | 17 | 0 | 95 | 3 | 11 | 0 | 130 | 0 | 103 | 200 | 680 |
## | 2.519 | 0.199 | 0.315 | 0.112 | 1.089 | 2.567 | 9.456 | 45.019 | 39.543 | 0.654 | 6.983 | 2.519 | 0.037 | 5.981 | 12.292 | 1.990 | |
## | 0.000 | 0.049 | 0.000 | 0.065 | 0.007 | 0.057 | 0.025 | 0.000 | 0.140 | 0.004 | 0.016 | 0.000 | 0.191 | 0.000 | 0.151 | 0.294 | 0.315 |
## | 0.000 | 0.340 | 0.000 | 0.299 | 0.500 | 0.244 | 0.152 | 0.000 | 0.594 | 0.500 | 0.145 | 0.000 | 0.320 | 0.000 | 0.444 | 0.348 | |
## | 0.000 | 0.015 | 0.000 | 0.020 | 0.002 | 0.018 | 0.008 | 0.000 | 0.044 | 0.001 | 0.005 | 0.000 | 0.060 | 0.000 | 0.048 | 0.093 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## STABILUS 3 | 8 | 10 | 0 | 1 | 0 | 10 | 0 | 1 | 3 | 0 | 3 | 0 | 144 | 0 | 129 | 92 | 401 |
## | 28.577 | 3.561 | 0.186 | 25.327 | 1.856 | 13.070 | 20.793 | 24.585 | 24.007 | 1.114 | 8.747 | 1.485 | 62.484 | 3.527 | 171.438 | 2.037 | |
## | 0.020 | 0.025 | 0.000 | 0.002 | 0.000 | 0.025 | 0.000 | 0.002 | 0.007 | 0.000 | 0.007 | 0.000 | 0.359 | 0.000 | 0.322 | 0.229 | 0.186 |
## | 1.000 | 0.103 | 0.000 | 0.007 | 0.000 | 0.062 | 0.000 | 0.007 | 0.019 | 0.000 | 0.039 | 0.000 | 0.355 | 0.000 | 0.556 | 0.160 | |
## | 0.004 | 0.005 | 0.000 | 0.000 | 0.000 | 0.005 | 0.000 | 0.000 | 0.001 | 0.000 | 0.001 | 0.000 | 0.067 | 0.000 | 0.060 | 0.043 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## TRMX | 0 | 8 | 0 | 0 | 0 | 43 | 32 | 67 | 13 | 0 | 6 | 0 | 58 | 0 | 0 | 144 | 371 |
## | 1.374 | 4.502 | 0.172 | 25.249 | 1.718 | 8.763 | 8.468 | 73.327 | 7.631 | 1.031 | 3.812 | 1.374 | 1.975 | 3.263 | 39.848 | 20.722 | |
## | 0.000 | 0.022 | 0.000 | 0.000 | 0.000 | 0.116 | 0.086 | 0.181 | 0.035 | 0.000 | 0.016 | 0.000 | 0.156 | 0.000 | 0.000 | 0.388 | 0.172 |
## | 0.000 | 0.082 | 0.000 | 0.000 | 0.000 | 0.269 | 0.286 | 0.469 | 0.081 | 0.000 | 0.079 | 0.000 | 0.143 | 0.000 | 0.000 | 0.250 | |
## | 0.000 | 0.004 | 0.000 | 0.000 | 0.000 | 0.020 | 0.015 | 0.031 | 0.006 | 0.000 | 0.003 | 0.000 | 0.027 | 0.000 | 0.000 | 0.067 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## VARROC | 0 | 19 | 1 | 23 | 0 | 33 | 13 | 9 | 0 | 1 | 26 | 0 | 0 | 4 | 0 | 9 | 138 |
## | 0.511 | 26.449 | 13.716 | 19.718 | 0.639 | 50.755 | 4.774 | 0.002 | 10.222 | 0.992 | 92.078 | 0.511 | 25.939 | 6.395 | 14.822 | 20.941 | |
## | 0.000 | 0.138 | 0.007 | 0.167 | 0.000 | 0.239 | 0.094 | 0.065 | 0.000 | 0.007 | 0.188 | 0.000 | 0.000 | 0.029 | 0.000 | 0.065 | 0.064 |
## | 0.000 | 0.196 | 1.000 | 0.156 | 0.000 | 0.206 | 0.116 | 0.063 | 0.000 | 0.167 | 0.342 | 0.000 | 0.000 | 0.211 | 0.000 | 0.016 | |
## | 0.000 | 0.009 | 0.000 | 0.011 | 0.000 | 0.015 | 0.006 | 0.004 | 0.000 | 0.000 | 0.012 | 0.000 | 0.000 | 0.002 | 0.000 | 0.004 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## VL-017-14086 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 1 |
## | 0.004 | 0.045 | 0.000 | 0.068 | 0.005 | 0.074 | 0.052 | 13.171 | 0.074 | 0.003 | 0.035 | 0.004 | 0.188 | 0.009 | 0.107 | 0.266 | |
## | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 1.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 |
## | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.007 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | |
## | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | 0.000 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## YANFENG | 0 | 26 | 0 | 51 | 3 | 28 | 29 | 11 | 47 | 2 | 30 | 4 | 20 | 6 | 0 | 2 | 259 |
## | 0.959 | 17.751 | 0.120 | 63.189 | 2.705 | 4.050 | 18.052 | 2.203 | 40.326 | 2.279 | 47.873 | 9.639 | 16.899 | 6.080 | 27.819 | 65.005 | |
## | 0.000 | 0.100 | 0.000 | 0.197 | 0.012 | 0.108 | 0.112 | 0.042 | 0.181 | 0.008 | 0.116 | 0.015 | 0.077 | 0.023 | 0.000 | 0.008 | 0.120 |
## | 0.000 | 0.268 | 0.000 | 0.347 | 0.300 | 0.175 | 0.259 | 0.077 | 0.294 | 0.333 | 0.395 | 0.500 | 0.049 | 0.316 | 0.000 | 0.003 | |
## | 0.000 | 0.012 | 0.000 | 0.024 | 0.001 | 0.013 | 0.013 | 0.005 | 0.022 | 0.001 | 0.014 | 0.002 | 0.009 | 0.003 | 0.000 | 0.001 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
## Column Total | 8 | 97 | 1 | 147 | 10 | 160 | 112 | 143 | 160 | 6 | 76 | 8 | 406 | 19 | 232 | 575 | 2160 |
## | 0.004 | 0.045 | 0.000 | 0.068 | 0.005 | 0.074 | 0.052 | 0.066 | 0.074 | 0.003 | 0.035 | 0.004 | 0.188 | 0.009 | 0.107 | 0.266 | |
## ---------------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|------------|
##
##
kbl(location) %>%
kable_classic()
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0
|
1
|
0
|
1
|
0
|
0
|
21
|
42
|
0
|
0
|
0
|
0
|
12
|
6
|
0
|
128
|
|
HELLA
|
0
|
0
|
0
|
12
|
0
|
2
|
0
|
12
|
2
|
0
|
0
|
4
|
42
|
1
|
0
|
0
|
|
MERIDIAN LIGHTWEIGHT
|
0
|
0
|
0
|
15
|
2
|
5
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
2
|
0
|
0
|
|
STABILUS 1
|
0
|
33
|
0
|
44
|
5
|
39
|
17
|
0
|
95
|
3
|
11
|
0
|
130
|
0
|
103
|
200
|
|
STABILUS 3
|
8
|
10
|
0
|
1
|
0
|
10
|
0
|
1
|
3
|
0
|
3
|
0
|
144
|
0
|
129
|
92
|
|
TRMX
|
0
|
8
|
0
|
0
|
0
|
43
|
32
|
67
|
13
|
0
|
6
|
0
|
58
|
0
|
0
|
144
|
|
VARROC
|
0
|
19
|
1
|
23
|
0
|
33
|
13
|
9
|
0
|
1
|
26
|
0
|
0
|
4
|
0
|
9
|
|
VL-017-14086
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
1
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
0
|
|
YANFENG
|
0
|
26
|
0
|
51
|
3
|
28
|
29
|
11
|
47
|
2
|
30
|
4
|
20
|
6
|
0
|
2
|
|
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0.0000000
|
0.0047393
|
0.0000000
|
0.0047393
|
0.0000000
|
0.0000000
|
0.0995261
|
0.1990521
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0568720
|
0.0284360
|
0.0000000
|
0.6066351
|
|
HELLA
|
0.0000000
|
0.0000000
|
0.0000000
|
0.1600000
|
0.0000000
|
0.0266667
|
0.0000000
|
0.1600000
|
0.0266667
|
0.0000000
|
0.0000000
|
0.0533333
|
0.5600000
|
0.0133333
|
0.0000000
|
0.0000000
|
|
MERIDIAN LIGHTWEIGHT
|
0.0000000
|
0.0000000
|
0.0000000
|
0.6250000
|
0.0833333
|
0.2083333
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0833333
|
0.0000000
|
0.0000000
|
|
STABILUS 1
|
0.0000000
|
0.0485294
|
0.0000000
|
0.0647059
|
0.0073529
|
0.0573529
|
0.0250000
|
0.0000000
|
0.1397059
|
0.0044118
|
0.0161765
|
0.0000000
|
0.1911765
|
0.0000000
|
0.1514706
|
0.2941176
|
|
STABILUS 3
|
0.0199501
|
0.0249377
|
0.0000000
|
0.0024938
|
0.0000000
|
0.0249377
|
0.0000000
|
0.0024938
|
0.0074813
|
0.0000000
|
0.0074813
|
0.0000000
|
0.3591022
|
0.0000000
|
0.3216958
|
0.2294264
|
|
TRMX
|
0.0000000
|
0.0215633
|
0.0000000
|
0.0000000
|
0.0000000
|
0.1159030
|
0.0862534
|
0.1805930
|
0.0350404
|
0.0000000
|
0.0161725
|
0.0000000
|
0.1563342
|
0.0000000
|
0.0000000
|
0.3881402
|
|
VARROC
|
0.0000000
|
0.1376812
|
0.0072464
|
0.1666667
|
0.0000000
|
0.2391304
|
0.0942029
|
0.0652174
|
0.0000000
|
0.0072464
|
0.1884058
|
0.0000000
|
0.0000000
|
0.0289855
|
0.0000000
|
0.0652174
|
|
VL-017-14086
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
1.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
|
YANFENG
|
0.0000000
|
0.1003861
|
0.0000000
|
0.1969112
|
0.0115830
|
0.1081081
|
0.1119691
|
0.0424710
|
0.1814672
|
0.0077220
|
0.1158301
|
0.0154440
|
0.0772201
|
0.0231660
|
0.0000000
|
0.0077220
|
|
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0
|
0.0103093
|
0
|
0.0068027
|
0.0
|
0.00000
|
0.1875000
|
0.2937063
|
0.00000
|
0.0000000
|
0.0000000
|
0.0
|
0.0295567
|
0.3157895
|
0.0000000
|
0.2226087
|
|
HELLA
|
0
|
0.0000000
|
0
|
0.0816327
|
0.0
|
0.01250
|
0.0000000
|
0.0839161
|
0.01250
|
0.0000000
|
0.0000000
|
0.5
|
0.1034483
|
0.0526316
|
0.0000000
|
0.0000000
|
|
MERIDIAN LIGHTWEIGHT
|
0
|
0.0000000
|
0
|
0.1020408
|
0.2
|
0.03125
|
0.0000000
|
0.0000000
|
0.00000
|
0.0000000
|
0.0000000
|
0.0
|
0.0000000
|
0.1052632
|
0.0000000
|
0.0000000
|
|
STABILUS 1
|
0
|
0.3402062
|
0
|
0.2993197
|
0.5
|
0.24375
|
0.1517857
|
0.0000000
|
0.59375
|
0.5000000
|
0.1447368
|
0.0
|
0.3201970
|
0.0000000
|
0.4439655
|
0.3478261
|
|
STABILUS 3
|
1
|
0.1030928
|
0
|
0.0068027
|
0.0
|
0.06250
|
0.0000000
|
0.0069930
|
0.01875
|
0.0000000
|
0.0394737
|
0.0
|
0.3546798
|
0.0000000
|
0.5560345
|
0.1600000
|
|
TRMX
|
0
|
0.0824742
|
0
|
0.0000000
|
0.0
|
0.26875
|
0.2857143
|
0.4685315
|
0.08125
|
0.0000000
|
0.0789474
|
0.0
|
0.1428571
|
0.0000000
|
0.0000000
|
0.2504348
|
|
VARROC
|
0
|
0.1958763
|
1
|
0.1564626
|
0.0
|
0.20625
|
0.1160714
|
0.0629371
|
0.00000
|
0.1666667
|
0.3421053
|
0.0
|
0.0000000
|
0.2105263
|
0.0000000
|
0.0156522
|
|
VL-017-14086
|
0
|
0.0000000
|
0
|
0.0000000
|
0.0
|
0.00000
|
0.0000000
|
0.0069930
|
0.00000
|
0.0000000
|
0.0000000
|
0.0
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
|
YANFENG
|
0
|
0.2680412
|
0
|
0.3469388
|
0.3
|
0.17500
|
0.2589286
|
0.0769231
|
0.29375
|
0.3333333
|
0.3947368
|
0.5
|
0.0492611
|
0.3157895
|
0.0000000
|
0.0034783
|
|
|
|
C.N.C.
|
C1
|
C12
|
C1Y2
|
C2
|
C3
|
CAJAS
|
CELDAS
|
FLEXO
|
LAMINADO
|
RANURADORA
|
RETORNABLE
|
ROTATIVA
|
SIERRA
|
STABILUS
|
TROQUEL
|
|
DENSO
|
0.0000000
|
0.0004630
|
0.000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0097222
|
0.0194444
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0055556
|
0.0027778
|
0.0000000
|
0.0592593
|
|
HELLA
|
0.0000000
|
0.0000000
|
0.000000
|
0.0055556
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0055556
|
0.0009259
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0194444
|
0.0004630
|
0.0000000
|
0.0000000
|
|
MERIDIAN LIGHTWEIGHT
|
0.0000000
|
0.0000000
|
0.000000
|
0.0069444
|
0.0009259
|
0.0023148
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0009259
|
0.0000000
|
0.0000000
|
|
STABILUS 1
|
0.0000000
|
0.0152778
|
0.000000
|
0.0203704
|
0.0023148
|
0.0180556
|
0.0078704
|
0.0000000
|
0.0439815
|
0.0013889
|
0.0050926
|
0.0000000
|
0.0601852
|
0.0000000
|
0.0476852
|
0.0925926
|
|
STABILUS 3
|
0.0037037
|
0.0046296
|
0.000000
|
0.0004630
|
0.0000000
|
0.0046296
|
0.0000000
|
0.0004630
|
0.0013889
|
0.0000000
|
0.0013889
|
0.0000000
|
0.0666667
|
0.0000000
|
0.0597222
|
0.0425926
|
|
TRMX
|
0.0000000
|
0.0037037
|
0.000000
|
0.0000000
|
0.0000000
|
0.0199074
|
0.0148148
|
0.0310185
|
0.0060185
|
0.0000000
|
0.0027778
|
0.0000000
|
0.0268519
|
0.0000000
|
0.0000000
|
0.0666667
|
|
VARROC
|
0.0000000
|
0.0087963
|
0.000463
|
0.0106481
|
0.0000000
|
0.0152778
|
0.0060185
|
0.0041667
|
0.0000000
|
0.0004630
|
0.0120370
|
0.0000000
|
0.0000000
|
0.0018519
|
0.0000000
|
0.0041667
|
|
VL-017-14086
|
0.0000000
|
0.0000000
|
0.000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0004630
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
0.0000000
|
|
YANFENG
|
0.0000000
|
0.0120370
|
0.000000
|
0.0236111
|
0.0013889
|
0.0129630
|
0.0134259
|
0.0050926
|
0.0217593
|
0.0009259
|
0.0138889
|
0.0018519
|
0.0092593
|
0.0027778
|
0.0000000
|
0.0009259
|
|
Graficos de datos cualitativos y
cuantitativos
#Grafica de pie
pie(prop.table(table(carton$CLIENTE)),col=c("#7FFFD4","#FF7F50","#CAFF70","#FFD700","#B2DFEE","#FFAEB9", "#FFA07A","#B3EE3A","#FF3E96", "#DDA0DD"),main="Clientes de FORM",las=1)

#Bar plots 1
Piezas <- data.frame(carton$FECHA,carton$PIEZAS.PROG.)
colnames(Piezas)<-c('Fecha','Piezas')
ggplot(data = Piezas, aes (x=Fecha, y=Piezas)) +
geom_bar(stat = "identity", fill="#FFA07A") + scale_fill_grey() +
labs(title = "Piezas programadas",
x = "Agosto")

#Bar plots 2
Laminas <- data.frame(carton$FECHA,carton$Laminas.procesadas)
colnames(Laminas)<-c('Fecha','Laminas')
ggplot(data = Laminas, aes (x=Fecha, y=Laminas)) +
geom_bar(stat = "identity", fill="#FFA07A") + scale_fill_grey() +
labs(title = "Laminas procesadas",
x = "Agosto")

#Bar plots 3
Cliente <- data.frame(carton$CLIENTE,carton$PIEZAS.PROG.)
colnames(Cliente)<-c('Cliente','Piezas')
ggplot(data = Cliente, aes (x=Cliente, y=Piezas)) +
geom_bar(stat = "identity", fill="#FFA07A") + scale_fill_grey() +
labs(title = "Piezas por cliente",
x = "Cliente")

Graficos de dispersión
#Histograma
hist(carton$TMO..MIN.,main="Histograma de frecuencia",xlab="Tiempo minimo",col='#FFA07A')

#Diagrama de dispersion
qqnorm(carton$TMO..MIN., main="Grafica de dispersion", ylab="Tiempo minimo",col='#FFA07A')
qqline(carton$TMO..MIN., col='#FFA07A')

#Graficos de normalidad
plot_normality(carton,TMO..MIN., col='#FFA07A')

Conclusiones
Despues de observar las gráficas sobre la base de datos, nos pudimos
dar cuenta de que el cliente STABILUS 1, es al que mayor cantidad de
pedidos le suministra FORM. Een cuanto a las piezas y laminas
programadas, las piezas mantienen un ciclo continuo de producción,
mientras que las laminas tuvieron una gran demanda el 2 de Agosto. Se
visualiza que de igual manera, la mayor cantidad de piezas programadas
van dirigidas al cliente STABILUS 1.