#r "nuget: Plotly.NET, 2.0.0-preview.6"
#r "nuget: Plotly.NET.Interactive, 2.0.0-preview.6"
open Plotly.NET
let x :Object list = [["BB+"; "BB+"; "BB+"; "BB"; "BB"; "BB"];[16; 17; 18; 16; 17; 18;]]
[
Chart.Column(keys=[], values = [1;2;3;4;5;6])
Chart.Column(keys=[], values = [6;5;4;3;2;1])
]
|> Chart.Combine
// couldn't find a way to use Chart.withX_Axis
// |> Chart.withX_Axis(Axis.LinearAxis.init(Tickvals = ["BB+"; "BB+"; "BB+"; "BB"; "BB"; "BB"]))
|> GenericChart.mapTrace(fun t->
t?x<-x // workaround
t)
|> Chart.withLayout( Layout.init(Barmode = StyleParam.Barmode.Stack))