annotate yetilab/plot/test/test_plot.yeti @ 135:b1968c825a53

Horizontal bar charts. Doesn't really help with long label truncation, as the axe renderer just seems to stick the labels too far right anyway
author Chris Cannam
date Tue, 23 Apr 2013 12:54:43 +0100
parents 759edd0d02ce
children 4065178f776b
rev   line source
Chris@125 1 module yetilab.plot.test.test_plot;
Chris@125 2
Chris@125 3 p = load yetilab.plot.plot;
Chris@125 4
Chris@125 5 { compare } = load yetilab.test.test;
Chris@125 6
Chris@125 7 [
Chris@125 8
Chris@125 9 "stack": \(
Chris@125 10 compare
Chris@125 11 (p.stack
Chris@125 12 [ "Conrad", "Alice", "Bob" ]
Chris@125 13 [ "Jan", "Feb", "Mar" ]
Chris@125 14 [ "Alice": [ "Jan": 3, "Mar": 2 ],
Chris@125 15 "Bob": [ "Jan": 0, "Feb": 1, "Mar": 4 ],
Chris@129 16 "Conrad": [ "Feb": 2, "Mar": 1 ] ]
Chris@129 17 false)
Chris@127 18 [ "Conrad": [ "Jan": { y0 = 0, y1 = 0 },
Chris@127 19 "Feb": { y0 = 0, y1 = 2 },
Chris@127 20 "Mar": { y0 = 0, y1 = 1 } ],
Chris@127 21 "Alice": [ "Jan": { y0 = 0, y1 = 3 },
Chris@127 22 "Feb": { y0 = 2, y1 = 2 },
Chris@127 23 "Mar": { y0 = 1, y1 = 3 } ],
Chris@127 24 "Bob": [ "Jan": { y0 = 3, y1 = 3 },
Chris@127 25 "Feb": { y0 = 2, y1 = 3 },
Chris@127 26 "Mar": { y0 = 3, y1 = 7 } ] ]
Chris@125 27 ),
Chris@125 28
Chris@129 29 "stack-normalised": \(
Chris@129 30 compare
Chris@129 31 (p.stack
Chris@129 32 [ "Conrad", "Alice", "Bob" ]
Chris@129 33 [ "Jan", "Feb", "Mar" ]
Chris@129 34 [ "Alice": [ "Jan": 3, "Mar": 2 ],
Chris@129 35 "Bob": [ "Jan": 0, "Feb": 1, "Mar": 4 ],
Chris@129 36 "Conrad": [ "Feb": 2, "Mar": 1 ] ]
Chris@129 37 true)
Chris@129 38 [ "Conrad": [ "Jan": { y0 = 0, y1 = 0 },
Chris@129 39 "Feb": { y0 = 0, y1 = 2/3 },
Chris@129 40 "Mar": { y0 = 0, y1 = 1/7 } ],
Chris@129 41 "Alice": [ "Jan": { y0 = 0, y1 = 1 },
Chris@129 42 "Feb": { y0 = 2/3, y1 = 2/3 },
Chris@129 43 "Mar": { y0 = 1/7, y1 = 3/7 } ],
Chris@129 44 "Bob": [ "Jan": { y0 = 1, y1 = 1 },
Chris@129 45 "Feb": { y0 = 2/3, y1 = 1 },
Chris@129 46 "Mar": { y0 = 3/7, y1 = 1 } ] ]
Chris@129 47 ),
Chris@129 48
Chris@125 49 ] is hash<string, () -> boolean>;
Chris@125 50