Согласно документации hist
, когда freq=FALSE
, «гистограмма имеет общую площадь один». Это не говорит о том, что высота каждого стержня должна быть меньше единицы. Гистограмма, созданная с помощью вашей команды и данных, имеет общую площадь 1.
> data_delay <- read.csv("PATH_TO_DATA_FILE")
> h <- hist(data_delay$delay, plot=F)
> h
$breaks
[1] 0.000 0.005 0.010 0.015 0.020 0.025 0.030 0.035 0.040 0.045 0.050 0.055
[13] 0.060 0.065 0.070
[SNIP]
$density
[1] 112.47892074 13.36706015 3.91231029 5.98088814 10.35413153
[6] 11.21978640 11.80438449 6.55424396 14.14277684 2.63069140
[11] 5.53119730 1.31534570 0.69702080 0.01124227
[SNIP]
Разрывы расположены на равном расстоянии 0,005 друг от друга, поэтому мы можем увидеть общую площадь гистограммы, выполнив следующие действия.
> sum(h$density * 0.005)
[1] 1