Не наносите вертикальную ось на hist
.Добавьте его самостоятельно через axis
.
h <- hist(rnorm(100))
plot(h, freq=FALSE, yaxt="n")
axis(2, pretty(h$density), sprintf("%0.0f%%", pretty(h$density)*100))
Однако это действительно вводит в заблуждение, потому что плотности не такие, как проценты или пропорции чего-либо.Если бы вы делали что-то вроде
hist(rnorm(100, s=0.1))
Вы получаете такое же распределение, но теперь все ваши плотности в 10 раз больше по величине, потому что масштаб распределения в 10 раз меньше.
Было бы более целесообразно построить совокупный частотный полигон или гистограмму *1011* с процентами по оси Y.