studio - Cómo agregar diagramas de caja a diagramas de dispersión con jitter

plot en r

Question

Estoy usando los siguientes comandos para producir un diagrama de dispersión con jitter:

ddf = data.frame(NUMS = rnorm(500), GRP = sample(LETTERS[1:5],500,replace=T))
library(lattice)
stripplot(NUMS~GRP,data=ddf, jitter.data=T)

Quiero agregar diagramas de caja sobre estos puntos (uno para cada grupo). Intenté buscar pero no puedo encontrar el código trazando todos los puntos (y no solo los valores atípicos) y con jitter. Como puedo resolver esto. Gracias por tu ayuda.

Answer 1

Para hacer esto en ggplot2 , intente:

ggplot(ddf, aes(x=GRP, y=NUMS)) + 
  geom_boxplot(outlier.shape=NA) + #avoid plotting outliers twice
  geom_jitter(position=position_jitter(width=.1, height=0))

Obviamente, puede ajustar los argumentos de ancho y alto de position_jitter() a su gusto (aunque yo recomendaría height=0 ya que el jittering de altura hará que su trazado sea inexacto).

Answer 2

Aquí hay una forma de usar gráficos base.

boxplot(NUMS ~ GRP, data = ddf, lwd = 2, ylab = ''NUMS'')
stripchart(NUMS ~ GRP, vertical = TRUE, data = ddf, 
    method = "jitter", add = TRUE, pch = 20, col = ''blue'')