Я думаю, что вы должны использовать Hist с Barplot, чтобы сделать это, как показано ниже (это прямо из документации), вы можете проверить это здесь? Layout.
x <- pmin(3, pmax(-3, stats::rnorm(50)))
xhist <- hist(x, breaks = seq(-3,3,0.5), plot = FALSE)
barplot(xhist$counts, axes = TRUE, space = 0, horiz=TRUE, xlab= "Counts", ylab="Bins")