Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- data = RandomVariate[NegativeMultinomialDistribution[5, {0.1, 0.3}], 500];
- DensityHistogram[data, {1}, AspectRatio -> 1]
- {{x, y}, counts} = HistogramList[data, {1}];
- coords = Outer[{##} + 0.5 &, Most[x], Most[y]];
- DensityHistogram[data, {1},
- AspectRatio -> 1,
- ColorFunction -> "TemperatureMap",
- Epilog -> {
- Black,
- MapThread[Text[ToString[#], #2] &, {counts, coords}, 2]
- }]
Add Comment
Please, Sign In to add comment