Как добавить ящик с усами к гистограмме в R

Чтобы добавить к гистограмме ящик с усами поверх гистограммы воспользуйтесь командой par(new = TRUE) между блоком построения гистограммы и блоком построения ящика с усами

distance = rnorm(200, 55, 10)
hist(distance, probability = TRUE, ylab = "", main = "",
     col = rgb(1, 0, 0, alpha = 0.5), axes = FALSE)
axis(1) # Adds horizontal axis
par(new = TRUE)
boxplot(distance, horizontal = TRUE, axes = FALSE,
        lwd = 2, col = rgb(0, 0, 0, alpha = 0.3))