Radial view of a Treemap

Download raw source code

> import Diagrams.Backend.SVG.CmdLine

> {-# LANGUAGE NoMonomorphismRestriction #-}

To see how this example is implemented, see the source code of the Diagrams.TwoD.Sunburst module included in the diagrams-contrib package. Or see John Stasko, Richard Catrambone, "An evaluation of space-filling information visualizations for depicting hierarchical structures", 2000. http://www.cc.gatech.edu/~john.stasko/papers/ijhcs00.pdf.

> import Diagrams.TwoD.Sunburst
> import Data.Tree (unfoldTree)
> 
> aTree = unfoldTree (\n -> (0, replicate n (n-1))) 6
> example = sunburst aTree # centerXY # pad 1.1

> main = mainWith (example :: Diagram B)