Enunciado del problema
En Piatt Bakery se acaba de instalar un nuevo horno industrial. Para
conocer la temperatura del horno, un inspector lee la temperatura en
cuatro lugares distintos dentro del horno cada media hora. La primera
lectura, a las 8:00 a.m., fue de 340 grados Fahrenheit. (Para facilitar
los cálculos en la siguiente tabla sólo se dan primeros dos
dígitos).
Preguntas
a) Con base en esta experiencia inicial, determine los líites de
control de la temperatura media. Determine la media total. Trace la
experiencia en una gráfica.
b) Interprete la gráfica. ¿Parece haber una hora en que la
temperatura está fuera de control?
library(readxl)
Tabla2 <- read_excel("Table.xlsx")
str(Tabla2)
## tibble [6 × 5] (S3: tbl_df/tbl/data.frame)
## $ Нога: chr [1:6] "8:00 a.m." "8:30 a.m." "9:00 a.m." "9:30 a.m." ...
## $ 1 : num [1:6] 40 44 41 39 37 39
## $ 2 : num [1:6] 50 42 45 39 42 40
## $ З : num [1:6] 55 38 47 41 46 39
## $ 4 : num [1:6] 39 38 43 41 41 40
Aquí se observa que se tiene una vatiable con las hora en tipo char
y cuatro variables más de tipo numericas con 6 observaciones.
Creación de diagrama
# Cargar el paquete
library(qcc)
# Definir el tamaño de los subgrupos
subgroup.size <- 5
# Crear el gráfico de control con colores
qcc_obj <- qcc(Tabla2[, -1], type = "xbar", sizes = subgroup.size)
data_plot <- data.frame(
sample = 1:length(qcc_obj$statistics),
value = qcc_obj$statistics,
ucl = qcc_obj$limits[,2],
lcl = qcc_obj$limits[,1],
center = qcc_obj$center
)
library(ggplot2)
# Graficar con ggplot2
ggplot(data_plot, aes(x = sample, y = value)) +
geom_line(color = "blue", size = 1) + # Línea principal
geom_point(color = "darkblue", size = 3) + # Puntos
geom_hline(aes(yintercept = center), color = "green", size = 1, linetype = "dashed") + # Línea central
geom_hline(aes(yintercept = ucl), color = "red", size = 1, linetype = "dashed") + # Límite superior
geom_hline(aes(yintercept = lcl), size = 1, color = "red", linetype = "dashed") + # Límite inferior
labs(title = "Gráfico de Control X-barra",
x = "Grupo",
y = "Valor") +
theme_minimal()
Con una función sencilla de qcc se realiza de forma fácil y
rápida un gráfico de control de media con sus límites, media, entre otra
información útil. Luego se ve un segundo gráfico que se reliza con
ggplot2
Respondiendo a las preguntas
Respondiendo a la pregunta b, sobre la interpretación del gráfico,
se observa que a las 8:00 a.m. hay una temperatura fuera de control, ya
que esta supera el límite superior del gráfico.