# [racket] Producing a PLoT with labels on the histogram bars

Just wanted to post this just in case it helps anyone else:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#lang racket
(require plot)
;; histogram-with-points: (sequenceof (sequence any/c real)) ->
(listof renderer2d)
;;
;; Given a sequence of data to draw as bar graphs, uses
discrete-histogram. Also
;; adds points at the top of each bar.
;;
(define (histogram-with-points data)
(define-values (histogram-points label-points)
(for/fold ([histogram-points '()]
[label-points '()])
([data-point data]
[i (in-naturals)])
(define floored-val (inexact->exact (floor (second data-point))))
(values (cons (discrete-histogram (list (vector (first
data-point) (second data-point)))
#:x-min i)
histogram-points)
(cons (point-label (vector (+ i 0.5) (second
data-point)) (number->string floored-val))
label-points))))
(append histogram-points label-points))
;; Example:
(plot (histogram-with-points '((gauss 50)
(gauss-iter 60)
(cpstack 40)))
#:y-max 70)