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

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 на горизонтальные боксы?