Добавление точек на горизонтальные боксы

Я использую следующий код для создания нескольких коробочных диаграмм, ранжированных по среднему значению переменных:

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)

(Смотрите этот пост для более подробной информации)

Когда я изменяю код наhorizontal = TRUEЯ не могу привести точки в соответствие с бокс-плотами. Есть идеи как правильно добавитьpoints на горизонтальные боксы?

Ответы на вопрос(1)

Решение Вопроса

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

или же

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

Ваш ответ на вопрос