| #load "../packages/FsPlot.0.6.5/FsPlotBootstrap.fsx" | |
| open FsPlot.Highcharts.Charting | |
| let joe = ["Apples", 3; "Oranges", 5; "Pears", 2; "Bananas", 2] | |
| let jane = ["Apples", 2; "Oranges", 3; "Pears", 1; "Bananas", 3] | |
| let john = ["Apples", 1; "Oranges", 3; "Pears", 4; "Bananas", 4] | |
| let chart = | |
| [joe; jane; john] | |
| |> Chart.PercentColumn | |
| |> Chart.WithNames ["Joe"; "Jane"; "John"] | |
| |> Chart.WithLegend true | |
| |> Chart.WithYTitle "% of Fruit Consumption" | |
| Chart.Close chart |