Ajout de points à boxplots horizontales

Question

J'utilise le code suivant pour produire de multiples boîtes à moustaches, évalué par la valeur moyenne des variables:

zx <- replicate (5, rnorm(50)) 
zx_means <- (colMeans(zx, na.rm = TRUE)) 
colnames (zx) <- seq_len (ncol (zx)) 
boxplot(zx [, order (zx_means)], horizontal = FALSE, outline = FALSE) 
points(zx_means [ order (zx_means)], pch = 22, col = "darkgrey", lwd = 7) 

(See this post for more details)

Lorsque je change le code à horizontal = TRUE, je Je ne suis pas capable de faire correspondre les points avec les boîtes à moustaches. Des idées pour ajouter correctement points aux boxplots horizontaux?

Answer 1

Vous devez donner les coordonnées x et y:

points(zx_means[order (zx_means)], seq_along(zx_means), 
     pch = 22, col = "darkgrey", lwd = 7) 

ou

points(zx_means, order (zx_means), pch = 22, col = "darkgrey", lwd = 7)