Pareto Chart

[kMutagene]

Description

A Pareto chart is a type of chart that contains both bars and a line graph, where individual values are represented in descending order by bars, and the cumulative total is represented by the line. The chart is named for the Pareto principle, which, in turn, derives its name from Vilfredo Pareto, a noted Italian economist. [1]

Example:

Pointers

• Ideally, you start prototyping in a scripting or notebook environment where you can iterate fast. installation instructions can be found here: https://plotly.net/#Installation
• Charts like this that are using baseline trace types to create a new chart type should only be implemented in the top-level Chart API. An example where this is already done is the Range chart that combines a set of differently styled line charts.
• When possible, use #IConvertible for data input, as this allows for strings, number types such as int and float, and DateTime.

References

• [1] https://en.wikipedia.org/wiki/Pareto_chart

[rockfaith75]

I'm working on this

[kMutagene]

hey @rockfaith75 i think you worked on this together with @smoothdeveloper. Is one of you still planning to finish this? If not, I would greatly appreciate if you could link what you ended up with during the hackathon (e.g. a script or notebook you worked in) so others can use it as a foundation to tackle this chart. If also do not have anything to link, no worries, please just tell me that this issue is up-for-grabs again. Thanks ❤️

[rockfaith75]

Thanks Super😍Kevin!!! The project is working with random data, I've just come back home to Italy from the beautiful Berlin and in the next days Gautier is calling me via zoom to clean up and test so we can commit, is it ok? Could you please give me your number just in case? Mine is +393493823145 - John Casagranda Thank You Kevin for the great and crucial support during the awesome F# for Data Science Conference at Novotel, congratulations once again to the Team! Come to visit me in Italy whenever you want, welcome anytime, R'n'R!!! 🎸💜💫 John JC Casagranda

…

On 16 Oct 2023, at 14:49, Kevin Schneider ***@***.***> wrote: hey @rockfaith75 <https://github.com/rockfaith75> i think you worked on this together with @smoothdeveloper <https://github.com/smoothdeveloper>. Is one of you still planning to finish this? If not, I would greatly appreciate if you could link what you ended up with during the hackathon (e.g. a script or notebook you worked in) so others can use it as a foundation to tackle this chart. If also do not have anything to link, no worries, please just tell me that this issue is up-for-grabs again. Thanks ❤️ — Reply to this email directly, view it on GitHub <#423 (comment)>, or unsubscribe <https://github.com/notifications/unsubscribe-auth/BC53QH4PTQO3BP3B7VO7M43X7UUMHAVCNFSM6AAAAAA5DI3IG2VHI2DSMVQWIX3LMV43OSLTON2WKQ3PNVWWK3TUHMYTONRUGQYTMMZRGM>. You are receiving this because you were mentioned.

[kMutagene]

Hey @rockfaith75 cool that you are still working on this, take all the time you need.

I might be best reachable on the fslab discord server: https://discord.gg/k3kUtFY8DB

[smoothdeveloper]

@kMutagene this is what we ended up playing with during the hackaton, in meantime it is useful to people lurking.

#r "nuget: Plotly.NET"
open Plotly.NET
open Plotly.NET.TraceObjects

let labelAndValues = [
    
    "Child Care"      , 44.8 
    "Public Transport", 27.2 
    "weather"         , 19.6
    "Traffic"         , 56.
]

module Seq =
    let unzip keyValues =
        keyValues |> Seq.map fst
        , keyValues |> Seq.map snd

type Chart with
    static member Pareto(keysValues: seq<string * float>, ?Name: string, ?Label: string) =
        let orderedLabels, orderedValues =
            keysValues
            |> Seq.sortByDescending snd
            |> Seq.unzip
        
        let sum = orderedValues |> Seq.sum
        let topPaddingRatio = 0.05
        let cumulativeSum = 
            Seq.scan (+) 0. orderedValues
             |> Seq.skip 1
        
        let paretoValues = 
            Seq.zip orderedLabels cumulativeSum
            |> Seq.map (fun (label,value) -> label, value / sum * 100.) 
        
        let bars = Chart.Column(Seq.zip orderedLabels orderedValues,?Name=Name)
        
        let points = 
            Chart.Point(
                paretoValues
                , ShowLegend = false
                , Marker     = Marker.init(Size = 8, Color = Color.fromKeyword Black, Symbol = StyleParam.MarkerSymbol.Cross, Angle = 45.)
            )
            |> Chart.withAxisAnchor (Y = 2)
            
        let lines = 
            Chart.Line(
                paretoValues
                , Name       = "Cumulative %"
                , ShowLegend = true
            ) 
            |> Chart.withAxisAnchor (Y = 2)
            
        [bars;lines;points] 
        |> Chart.combine 
        |> Chart.withYAxisStyle (
                ?TitleText = Label
                , Id       = StyleParam.SubPlotId.YAxis 1
                , ShowGrid = false
                , MinMax   = (0.,sum * (1.+topPaddingRatio))
            )
        |> Chart.withYAxisStyle (
                TitleText    = "%"
                , Side       = StyleParam.Side.Right
                , Id         = StyleParam.SubPlotId.YAxis 2
                , MinMax     = (0.,100. * (1.+topPaddingRatio))
                , Overlaying = StyleParam.LinearAxisId.Y 1
            )


Chart.Pareto(labelAndValues, Name="Budget", Label="$") |> Chart.show

I intend to work with @rockfaith75 in order to make a full fledged PR that will meet the bar for integration in the library.

[kMutagene]

This has been merged 🥳 , thank you @smoothdeveloper and @rockfaith75 !