Skip to content

Instantly share code, notes, and snippets.

@isaacabraham
Created December 7, 2014 16:09
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save isaacabraham/7501cacae8a959477af9 to your computer and use it in GitHub Desktop.
Save isaacabraham/7501cacae8a959477af9 to your computer and use it in GitHub Desktop.
[<Measure>]
type KB
let data =
[ [ "HTML", 131.09<KB> ]
[ "CSS", 439.77<KB> ]
[ "Javascript", 852.04<KB> ]
[ "Actual Content", 80.30<KB> ]
[ "Fonts", 56.87<KB> ]
[ "Images", 712.25<KB> ]
[ "Other", 1.39<KB> ] ]
data
|> Chart.StackedColumn
|> Chart.WithNames (data |> Seq.map(fun series -> series.[0] |> fst))
|> Chart.WithLegend true
|> Chart.WithYTitle "Data (KB)"
|> Chart.WithLabels [ "Initial Download" ]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment