[?] Do threshold Histogram?

Questions
,
1

Hello Friends,
I am trying to develop a threshold histogram on Mathematica.
Its not also available in the Help.
Kindly please advise how to do it (attached Figure).

Thanks

2

You can add graphic objects with Epilog:

Histogram[RandomReal[{0, 1}, 50], 
 Epilog -> {Dashed, InfiniteLine[{.7, 0}, {0, 1}], 
   Text["Threshold", {.7, 0}, {-1, 1}, {0, 1}]}]