[Chart] Horizontal Bar Charts

[trevor cook]

Hi All,

Is there a simple way to make a horizontal bar chart using Charts-1.2? I
can't find any obvious solution in the library documentation. How would I
make example 11 from the wiki (pasted below) into a horizontal chart?

Thanks,
Trevor




import Graphics.Rendering.Chartimport
Graphics.Rendering.Chart.Backend.Cairoimport Data.Colourimport
Data.Colour.Namesimport Data.Default.Classimport Control.Lensimport
System.Environment(getArgs)
chart borders = toRenderable layout
 where
  layout =
        layout_title .~ "Sample Bars" ++ btitle
      $ layout_title_style . font_size .~ 10
      $ layout_x_axis . laxis_generate .~ autoIndexAxis alabels
      $ layout_y_axis . laxis_override .~ axisGridHide
      $ layout_left_axis_visibility . axis_show_ticks .~ False
      $ layout_plots .~ [ plotBars bars2 ]
      $ def :: Layout PlotIndex Double

  bars2 = plot_bars_titles .~ ["Cash","Equity"]
      $ plot_bars_values .~ addIndexes [[20,45],[45,30],[30,20],[70,25]]
      $ plot_bars_style .~ BarsClustered
      $ plot_bars_spacing .~ BarsFixGap 30 5
      $ plot_bars_item_styles .~ map mkstyle (cycle defaultColorSeq)
      $ def

  alabels = [ "Jun", "Jul", "Aug", "Sep", "Oct" ]

  btitle = if borders then "" else " (no borders)"
  bstyle = if borders then Just (solidLine 1.0 $ opaque black) else Nothing
  mkstyle c = (solidFillStyle c, bstyle)
main = renderableToFile def (chart True) "example11_big.png"
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://projects.haskell.org/pipermail/chart/attachments/20140226/fe071303/attachment.htm>