Crecimiento de pan.

En el libro Design and Analysis of Experiments with R de John Lawson se encuentra un ejemplo de un experimento que se realizó para determinar si el tiempo de reposo influía en el crecimiento de masas de panes.

A continuación se presentan los resultados de dicho experimento:

Lectura de la base de datos.

library(readxl)
pan <- read_excel("crecim_pan.xlsx")

Despligue de la base de datos

pan
## # A tibble: 12 x 3
##    Idmasa Tiempo Altura
##     <dbl>  <dbl>  <dbl>
##  1   1.00   35.0   4.50
##  2   2.00   35.0   5.00
##  3   3.00   35.0   5.50
##  4   4.00   35.0   6.75
##  5   5.00   40.0   6.50
##  6   6.00   40.0   6.50
##  7   7.00   40.0  10.5 
##  8   8.00   40.0   9.50
##  9   9.00   45.0   9.75
## 10  10.0    45.0   8.75
## 11  11.0    45.0   6.50
## 12  12.0    45.0   8.25

Gráfica inicial de los datos del experimento.

library(ggplot2)
ggplot(pan, aes(Tiempo, Altura)) +
  geom_point()

Gráfica mejorada

library(ggplot2)
ggplot(pan, aes(Tiempo, Altura)) +
  geom_jitter(width = 0.2, height = 0) +
  labs(title = "Relación del tiempo de reposo con la altura alcanzada por el pan",
       x = "Tiempo (minutos)",
       y = "Altura (cm)") +
       scale_x_continuous(breaks = c(35,40,45), limits = c(30, 50)) +
       scale_y_continuous(breaks = seq(3,12)) +
       stat_summary(fun.y = "mean", geom = "point", col = "red", 
                    shape = 21, stroke = 2) +
       stat_summary(fun.y = "mean", geom = "line", col = "red",
                    linetype = 2)