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) ____________________ Racket Users list: http://lists.racket-lang.org/users