Anotar diagrama de caja en ggplot2

Problema

Deseamos anotar el siguiente diagrama de caja en ggplot2 y añadir los 5 números de Tukey: mínimo, bigote inferior, mediana, bigote superior, máximo.

fivenum(iris$Sepal.Width)

[1] 2.0 2.8 3.0 3.3 4.4

library(ggplot2)
ggplot(iris, aes(factor(0), Sepal.Width)) + 
geom_boxplot() + xlab("") + scale_x_discrete(breaks = NULL)

Solución

Creamos el data frame five con los 5 números de Tukey que utilizamos en los argumentos de geom_text para anotar el gráfico.

five <- data.frame(x = rep(1, 5), five = fivenum(iris$Sepal.Width))
ggplot(iris, aes(x = 0, y = Sepal.Width)) + 
  geom_boxplot() + xlab("") + scale_x_discrete(breaks = NULL) + 
  geom_text(data = five, aes(x = 0, y = five, label = five), nudge_x = 0.5)

Referencias

• geom_text
• geom_boxplot

Entradas relacionadas

• Diagramas de caja con ggplot2 en R. Una introducción
• Introducción al diagrama de caja (box plot) en R
• Múltiples diagramas de caja en R
• Múltiples diagramas de caja usando la función plot en R
• Diagrama de caja con intervalos de confianza para la mediana
• Diagramas de caja de un data frame con ggplot2: una o varias columnas