Diagramas de Shewhart Venta Respiradores Tecme
Los diagramas Shewhart se usan para diferenciar en una serie de datos que es una señal de lo que es ruido o background noise . El ruido es parte del comportamiento normal del proceso , por mas que haya fluctuaciones si las mismas estan dentro de un rango determinado no es indicio de que haya una señal/problema concreto que se empiece a manifestar en el proceso.
La manifestacion de la aparicion de una señal representa un inicio de cambio (para bien o para mal) en el proceso y estan dados por los violation runs que son los puntos amarillos en el grafico xbar.
Siempre que se detecte una señal debe determinarse las causas para entender el problema, la causa de mejora o lo que esta haciendo cambiar al proceso en forma sistemica.
Una señal se da cuando:
hay un desvio del valor medio hacia los limites de control (para arriba o hacia abajo) en 3 de 4 corridas (puntos del grafico)
rule of thumb : si se detectara 8 puntos consecutivos tendiendo a uno de los limites, pero sin sobrepasarlo o bien sobrepasandolo , se puede detectar cuando se inicio un cambio o problema en el proceso
Si la curva se mantiene dentro de las limites de control en el largo plazo entonces si se quiere mejorar habra que cambiar el sistema que rige el proceso y no poner objetivos a alcanzar. En este caso de nada sirve poner objetivos para mejorar ya que el problema a resolver es de indole estructural.
Cuando la curva supera el limite hay que ver cual es la causa ya que puede representar una señal.
Para ver la situacion
Analisis y Graficos de Shewhart para las Venta de Respiradores
Analisis de los Diagramas de Shewhart
List of 11
$ call : language qcc(data = ventas_tsa[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme SA Utimos 3 años| __truncated__
$ type : chr "xbar.one"
$ data.name : chr "Shewhart Chart Ventas Respis Tecme SA Utimos 3 años"
$ data : num [1:37, 1] 148 201 37 152 40 107 66 36 164 101 ...
..- attr(*, "dimnames")=List of 2
$ statistics: Named num [1:37] 148 201 37 152 40 107 66 36 164 101 ...
..- attr(*, "names")= chr [1:37] "1" "2" "3" "4" ...
$ sizes : int [1:37] 1 1 1 1 1 1 1 1 1 1 ...
$ center : num 114
$ std.dev : num 59.8
$ nsigmas : num 3
$ limits : num [1, 1:2] -65.9 293.1
..- attr(*, "dimnames")=List of 2
$ violations:List of 2
- attr(*, "class")= chr "qcc"
Call:
qcc(data = ventas_tsa[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme SA Utimos 3 años", plot = TRUE)
xbar.one chart for Shewhart Chart Ventas Respis Tecme SA Utimos 3 años
Summary of group statistics:
Min. 1st Qu. Median Mean 3rd Qu. Max.
18.0000 68.0000 101.0000 113.5946 152.0000 319.0000
Group sample size: 1
Number of groups: 37
Center of group statistics: 113.5946
Standard deviation: 59.84043
Control limits:
LCL UCL
-65.92668 293.1159
List of 11
$ call : language qcc(data = ventas_tdb[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Brasil Ultimos 3| __truncated__
$ type : chr "xbar.one"
$ data.name : chr "Shewhart Chart Ventas Respis Tecme Brasil Ultimos 3 años"
$ data : num [1:37, 1] 0 71 4 31 85 10 10 0 1 6 ...
..- attr(*, "dimnames")=List of 2
$ statistics: Named num [1:37] 0 71 4 31 85 10 10 0 1 6 ...
..- attr(*, "names")= chr [1:37] "1" "2" "3" "4" ...
$ sizes : int [1:37] 1 1 1 1 1 1 1 1 1 1 ...
$ center : num 12.3
$ std.dev : num 12.8
$ nsigmas : num 3
$ limits : num [1, 1:2] -26 50.5
..- attr(*, "dimnames")=List of 2
$ violations:List of 2
- attr(*, "class")= chr "qcc"
Call:
qcc(data = ventas_tdb[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Brasil Ultimos 3 años", plot = TRUE)
xbar.one chart for Shewhart Chart Ventas Respis Tecme Brasil Ultimos 3 años
Summary of group statistics:
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.00000 1.00000 5.00000 12.27027 10.00000 90.00000
Group sample size: 1
Number of groups: 37
Center of group statistics: 12.27027
Standard deviation: 12.75611
Control limits:
LCL UCL
-25.99805 50.53859
List of 11
$ call : language qcc(data = ventas_tco[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Corp Ultimos 3 a| __truncated__
$ type : chr "xbar.one"
$ data.name : chr "Shewhart Chart Ventas Respis Tecme Corp Ultimos 3 años"
$ data : num [1:37, 1] 78 44 94 29 58 34 48 19 8 34 ...
..- attr(*, "dimnames")=List of 2
$ statistics: Named num [1:37] 78 44 94 29 58 34 48 19 8 34 ...
..- attr(*, "names")= chr [1:37] "1" "2" "3" "4" ...
$ sizes : int [1:37] 1 1 1 1 1 1 1 1 1 1 ...
$ center : num 39.2
$ std.dev : num 21.7
$ nsigmas : num 3
$ limits : num [1, 1:2] -25.9 104.4
..- attr(*, "dimnames")=List of 2
$ violations:List of 2
- attr(*, "class")= chr "qcc"
Call:
qcc(data = ventas_tco[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Corp Ultimos 3 años", plot = TRUE)
xbar.one chart for Shewhart Chart Ventas Respis Tecme Corp Ultimos 3 años
Summary of group statistics:
Min. 1st Qu. Median Mean 3rd Qu. Max.
0.00000 21.00000 44.00000 39.21622 52.00000 94.00000
Group sample size: 1
Number of groups: 37
Center of group statistics: 39.21622
Standard deviation: 21.71986
Control limits:
LCL UCL
-25.94336 104.3758
List of 11
$ call : language qcc(data = ventas_global[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Global Ultim| __truncated__
$ type : chr "xbar.one"
$ data.name : chr "Shewhart Chart Ventas Respis Tecme Global Ultimos 3 años"
$ data : num [1:37, 1] 226 316 135 212 183 151 124 55 173 141 ...
..- attr(*, "dimnames")=List of 2
$ statistics: Named num [1:37] 226 316 135 212 183 151 124 55 173 141 ...
..- attr(*, "names")= chr [1:37] "1" "2" "3" "4" ...
$ sizes : int [1:37] 1 1 1 1 1 1 1 1 1 1 ...
$ center : num 165
$ std.dev : num 60.5
$ nsigmas : num 3
$ limits : num [1, 1:2] -16.5 346.7
..- attr(*, "dimnames")=List of 2
$ violations:List of 2
- attr(*, "class")= chr "qcc"
Call:
qcc(data = ventas_global[h:k, ], type = "xbar.one", data.name = "Shewhart Chart Ventas Respis Tecme Global Ultimos 3 años", plot = TRUE)
xbar.one chart for Shewhart Chart Ventas Respis Tecme Global Ultimos 3 años
Summary of group statistics:
Min. 1st Qu. Median Mean 3rd Qu. Max.
55.0000 112.0000 160.0000 165.0811 203.0000 352.0000
Group sample size: 1
Number of groups: 37
Center of group statistics: 165.0811
Standard deviation: 60.52994
Control limits:
LCL UCL
-16.50875 346.6709
[1] 226 316 135 212 183 151 124 55 173 141 195 142 111 229 108 196 352 112 118
[20] 80 86 219 227 179 220 203 165 180 195 157 99 90 250 93 135 91 160
[1] NA NA 225.66667 221.00000 176.66667 182.00000 152.66667
[8] 110.00000 117.33333 123.00000 169.66667 159.33333 149.33333 160.66667
[15] 149.33333 177.66667 218.66667 220.00000 194.00000 103.33333 94.66667
[22] 128.33333 177.33333 208.33333 208.66667 200.66667 196.00000 182.66667
[29] 180.00000 177.33333 150.33333 115.33333 146.33333 144.33333 159.33333
[36] 106.33333 128.66667
