Histograms in Fsharp

How to make Histograms in F# with Plotly.


In [1]:
#r "nuget: Plotly.NET, 2.0.0-preview.7"
#r "nuget: Plotly.NET.Interactive, 2.0.0-preview.7"
#r "nuget: newtonsoft.json"
open Plotly.NET
Installed Packages
  • newtonsoft.json, 13.0.1
  • Plotly.NET, 2.0.0-preview.7
  • Plotly.NET.Interactive, 2.0.0-preview.7

Loading extensions from Plotly.NET.Interactive.dll

Added Kernel Extension including formatters for Plotly.NET charts.

Basic Histogram

In [2]:
let N = 500
let rnd = System.Random()
let x = Array.init N (fun _ -> rnd.NextDouble())
Chart.Histogram(x)
Out[2]:

Normalized Histogram

In [3]:
let N = 500
let rnd = System.Random()
let x = Array.init N (fun _ -> rnd.NextDouble())
Chart.Histogram(
               x,
               HistNorm=StyleParam.HistNorm.Probability
               )
Out[3]:

Horizontal Histogram

In [4]:
open Plotly.NET
let N = 500
let rnd = System.Random()
let x = Array.init N (fun _ -> rnd.NextDouble())
In [5]:
Chart.Histogram(
               x,
               Orientation=StyleParam.Orientation.Horizontal
               )  // issue with horizental allign
Out[5]:

Overlaid Histogram

In [6]:
let N = 500
let rnd = System.Random()
let x0 = Array.init N (fun _ -> rnd.NextDouble())
let x1= Array.init N (fun _ -> rnd.NextDouble())
[
    Chart.Histogram(x0)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 0")
        x.SetValue("marker", {| color = "rgba(103, 102, 255,1)"; line = {| color = "rgba(103, 102, 255, 1)"; width = 3 |} |})
        x)
    Chart.Histogram(x1)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 1")
        x.SetValue("marker", {| color = "rgba(255, 70, 51, 1)"; line = {| color = "rgba(255, 70, 51, 1)"; width = 3 |} |})
        x)
]
|> Chart.combine
|> Chart.withLayout(Layout.init(Barmode = StyleParam.Barmode.Overlay))
Out[6]:

Stacked Histograms

In [7]:
open Plotly.NET

let N = 500
let rnd = System.Random()
let x0 = Array.init N (fun _ -> rnd.NextDouble())
let x1= Array.init N (fun _ -> rnd.NextDouble())
[
    Chart.Histogram(x0)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 0")
        x.SetValue("marker", {| color = "rgba(103, 102, 255,1)"; line = {| color = "rgba(103, 102, 255, 1)"; width = 3 |} |})
        x)
    Chart.Histogram(x1)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 1")
        x.SetValue("marker", {| color = "rgba(255, 70, 51, 1)"; line = {| color = "rgba(255, 70, 51, 1)"; width = 3 |} |})
        x)
]
|> Chart.combine
|> Chart.withLayout(Layout.init(Barmode = StyleParam.Barmode.Stack))
Out[7]:

Styled Histogram

In [8]:
let N = 500
let rnd = System.Random()
let x0 = Array.init N (fun _ -> rnd.NextDouble())
let x1= Array.init N (fun _ -> rnd.NextDouble())

let layout =
    let temp = Layout()
    temp?barmode <- "Overlay"
    temp?bargap <- 0.5
    temp?bargroupgap <- 0.1
    temp
[
    Chart.Histogram(x0)                  // Issues setting the xbins start,end and size=0.5
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "control")
        x.SetValue("HistNorm","percent")
        x.SetValue("Opacity","0.75")
        x.SetValue("marker", {| color = "rgba(255, 69, 246, 0.35)"; line = {| color = "rgba(255, 69, 246, 0.35)"; width = 5 |} |})
        x)
    Chart.Histogram(x1)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "experimental")
        x.SetValue("HistNorm","percent")
        x.SetValue("Opacity","0.75")
        x.SetValue("marker", {| color = "rgba(103, 102, 255,1)"; line = {| color = "rgba(103, 102, 255,1)"; width = 5 |} |})
        x)
]


|> Chart.combine
|> Chart.withTitle("Sample Result")
|> Chart.withXAxisStyle("Value")
|> Chart.withYAxisStyle("Count")
//|> Chart.withLayout(Layout.init(Barmode = StyleParam.Barmode.Overlay))
|> Chart.withLayout(layout)   // Issues setting the xbins start,end and size=0.5
Out[8]:

Cumulative Histogram

In [9]:
let N = 500
let rnd = System.Random()
let x = Array.init N (fun _ -> rnd.NextDouble())
In [10]:
Chart.Histogram(x)     // issue with not find cumulative in histogram
Out[10]:

Specify Aggregation Function

In [11]:
let fruits =  ["Apples";"Apples";"Apples";"Oranges"; "Bananas"];
let counts = ["5";"10";"3";"10";"5"]
[
Chart.Histogram(
              fruits,
               Name = "Sum"
               );
Chart.Histogram(
              counts ,
               Name = "Count"
               );
]
|> Chart.combine
Out[11]:

Share bins between histograms

In [12]:
let N = 500
let rnd = System.Random()
let x0 = Array.init N (fun _ -> rnd.Next(7, 20))
let x1 = Array.init N (fun _ -> rnd.Next(7, 20))
let layout =
    let obj = Layout()
    obj?bargap <- 0.5
    obj?bargroupgap <- 0.1
    obj
[
    Chart.Histogram(x0)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 0")
        x.SetValue("marker", {| color = "rgba(103, 102, 255, 1)"; line = {| color = "rgba(103, 102, 255, 1)"; width = 5 |} |})
        x)
    Chart.Histogram(x1)
    |> GenericChart.mapTrace(fun x ->
        x.SetValue("name", "trace 1")
        x.SetValue("marker", {| color = "rgba(255, 70, 51, 1)"; line = {| color = "rgba(255, 70, 51, 1)"; width = 5 |} |})
        x)
]

|> Chart.combine
|> Chart.withLayout(Layout.init(Barmode = StyleParam.Barmode.Stack))
Out[12]: