Add parallel categories plot

Author: kMutagene

src/FSharp.Plotly/Chart.fs

@@ -473,8 +473,27 @@ type Chart =
         |> TraceStyle.Line(?Width=Width,?Color=Color,?Dash=Dash,?Colorscale=Colorscale)
         |> GenericChart.ofTraceObject
 
+    ///Parallel categories diagram for multidimensional categorical data.
+    static member ParallelCategories(dims:seq<'key*#seq<'values>>,?Range,?Constraintrange,?Color,?Colorscale,?Width,?Dash,?Domain,?Labelfont,?Tickfont,?Rangefont) =
+        let dims' = 
+            dims |> Seq.map (fun (k,vals) -> 
+                Dimensions.init(vals)
+                |> Dimensions.style(vals,?Range=Range,?Constraintrange=Constraintrange,Label=k)
+                )
+        Trace.initParallelCategories (
+            TraceStyle.ParallelCategories(Dimensions=dims',?Domain=Domain,?Labelfont=Labelfont,?Tickfont=Tickfont,?Rangefont=Rangefont)
+        )
+        |> TraceStyle.Line(?Width=Width,?Color=Color,?Dash=Dash,?Colorscale=Colorscale)
+        |> GenericChart.ofTraceObject
+
+    static member ParallelCategories(dims:seq<Dimensions>,?Color,?Colorscale,?Width,?Dash,?Domain,?Labelfont,?Tickfont,?Rangefont) =
+        Trace.initParallelCategories (
+            TraceStyle.ParallelCoord (Dimensions=dims,?Domain=Domain,?Labelfont=Labelfont,?Tickfont=Tickfont,?Rangefont=Rangefont)             
+            )
+        |> TraceStyle.Line(?Width=Width,?Color=Color,?Dash=Dash,?Colorscale=Colorscale)
+        |> GenericChart.ofTraceObject
 
-     /// Computes the choropleth map plot
+    /// Computes the choropleth map plot
     static member ChoroplethMap(locations,z,?Text,?Locationmode,?Autocolorscale,?Colorscale,?Colorbar,?Marker,?Zmin,?Zmax) =
         Trace.initChoroplethMap (
             TraceStyle.ChoroplethMap (Locations=locations,Z=z,?Text=Text,?Locationmode=Locationmode,?Autocolorscale=Autocolorscale,

src/FSharp.Plotly/TestScript.fsx

@@ -36,7 +36,16 @@ Chart.Spline(x,y',Name="spline")
 //|> GenericChart.toChartHtmlWithSize 500 500
 
 //|> Chart.ShowAsImage StyleParam.ImageFormat.SVG 
-|> Chart.ShowAsImage StyleParam.ImageFormat.SVG 
+
+let dims' =
+    [
+        Dimensions.init(["Cat1";"Cat1";"Cat1";"Cat1";"Cat2";"Cat2";"Cat3"],Label="A")
+        Dimensions.init([0;1;0;1;0;0;0],Label="B",TickText=["YES","NO"])
+    ]
+    
+Chart.ParallelCategories(dims=dims',Color=[0.;1.;0.;1.;0.;0.;0.],Colorscale = StyleParam.Colorscale.Blackbody)
+|> Chart.Show
+
 
 
 

src/FSharp.Plotly/Trace.fs

@@ -54,7 +54,6 @@ module Trace =
     let initHistogram2d (applyStyle:Trace->Trace) = 
         Trace("histogram2d") |> applyStyle
 
-
     /// Init trace for 2d-histogram contour
     let initHistogram2dContour (applyStyle:Trace->Trace) = 
         Trace("histogram2dcontour") |> applyStyle
@@ -63,6 +62,10 @@ module Trace =
     let initParallelCoord (applyStyle:Trace->Trace) = 
         Trace("parcoords") |> applyStyle
 
+    // Init trace for a parallel category plot
+    let initParallelCategories (applyStyle: Trace -> Trace) =
+        Trace("parcats") |> applyStyle
+
     /// Init trace for a choropleth map
     let initChoroplethMap (applyStyle:Trace->Trace) = 
         Trace("choropleth") |> applyStyle
@@ -884,7 +887,28 @@ module Trace =
                     // out ->
                     parcoords 
                 ) 
-
+    
+        static member ParallelCategories
+            (                
+                ?Dimensions : seq<Dimensions>,
+                ?Line               ,
+                ?Domain             ,
+                ?Labelfont          ,
+                ?Tickfont   :   Font,
+                ?Rangefont  :   Font        
+            ) =
+                (fun (parcats:('T :> Trace)) -> 
+        
+                    Dimensions         |> DynObj.setValueOpt parcats "dimensions"         
+                    Line               |> DynObj.setValueOpt parcats "line"                     
+                    Domain             |> DynObj.setValueOpt parcats "domain"     
+                    Labelfont          |> DynObj.setValueOpt parcats "labelfont"               
+                    Tickfont           |> DynObj.setValueOpt parcats "tickfont"                
+                    Rangefont          |> DynObj.setValueOpt parcats "rangefont"              
+            
+                    // out ->
+                    parcats 
+                ) 
 
         // Applies the styles of choropleth map plot to TraceObjects 
         static member ChoroplethMap