Add BarPolar chart and related polar layout styles

Author: kMutagene

src/Plotly.NET/Chart.fs

@@ -1578,23 +1578,30 @@ type Chart =
                 ?UseWebGL       = UseWebGL
             )
 
-    //static member WindRose(r, t,
-    //        [<Optional;DefaultParameterValue(null)>] ?Name,
-    //        [<Optional;DefaultParameterValue(null)>] ?Showlegend,
-    //        [<Optional;DefaultParameterValue(null)>] ?Color,
-    //        [<Optional;DefaultParameterValue(null)>] ?Opacity,
-    //        [<Optional;DefaultParameterValue(null)>] ?Labels,
-    //        [<Optional;DefaultParameterValue(null)>] ?TextPosition,
-    //        [<Optional;DefaultParameterValue(null)>] ?TextFont,
-    //        [<Optional;DefaultParameterValue(null)>] ?Dash,
-    //        [<Optional;DefaultParameterValue(null)>] ?Width) = 
-    //    Trace.initWindRose (
-    //            TraceStyle.Scatter(R = r,T = t) )               
-    //    |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity)
-    //    |> TraceStyle.Line(?Color=Color,?Dash=Dash,?Width=Width)
-    //    |> TraceStyle.Marker(?Color=Color)
-    //    |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
-    //    |> GenericChart.ofTraceObject 
+    /// 
+    static member BarPolar
+        (
+            r, theta,
+            [<Optional;DefaultParameterValue(null)>] ?Name,
+            [<Optional;DefaultParameterValue(null)>] ?Showlegend,
+            [<Optional;DefaultParameterValue(null)>] ?Color,
+            [<Optional;DefaultParameterValue(null)>] ?Opacity,
+            [<Optional;DefaultParameterValue(null)>] ?Labels,
+            [<Optional;DefaultParameterValue(null)>] ?TextPosition,
+            [<Optional;DefaultParameterValue(null)>] ?TextFont,
+            [<Optional;DefaultParameterValue(null)>] ?Dash,
+            [<Optional;DefaultParameterValue(null)>] ?LineWidth
+        ) = 
+            Trace.initBarPolar(
+                TraceStyle.BarPolar(
+                    R = r, Theta = theta
+                )
+            )
+            |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity)
+            |> TraceStyle.Line(?Color=Color,?Dash=Dash,?Width=LineWidth)
+            |> TraceStyle.Marker(?Color=Color)
+            |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
+            |> GenericChart.ofTraceObject 
 
      /// Computes a histogram with auto-determined the bin size.
     static member Histogram(data,

src/Plotly.NET/Polar.fs

@@ -49,6 +49,8 @@ type Polar () =
     /// <param name="AngularAxis">Sets the angular axis of the polar subplot.</param>
     /// <param name="GridShape">Determines if the radial axis grid lines and angular axis line are drawn as "circular" sectors or as "linear" (polygon) sectors. Has an effect only when the angular axis has `type` "category". Note that `radialaxis.angle` is snapped to the angle of the closest vertex when `gridshape` is "circular" (so that radial axis scale is the same as the data scale).</param>
     /// <param name="UIRevision">Controls persistence of user-driven changes in axis attributes, if not overridden in the individual axes. Defaults to `layout.uirevision`.</param>
+    /// <param name="BarMode">Determines how bars at the same location coordinate are displayed on the graph. With "stack", the bars are stacked on top of one another With "relative", the bars are stacked on top of one another, with negative values below the axis, positive values above With "group", the bars are plotted next to one another centered around the shared location. With "overlay", the bars are plotted over one another, you might need to an "opacity" to see multiple bars.</param>
+    /// <param name="BarGap">Sets the gap (in plot fraction) between bars of adjacent location coordinates.</param>
     static member style
         (    
             ?Domain     : Domain,
@@ -58,7 +60,11 @@ type Polar () =
             ?RadialAxis : Axis.RadialAxis,
             ?AngularAxis: Axis.AngularAxis,
             ?GridShape  : StyleParam.PolarGridShape,
-            ?UIRevision : string
+            ?UIRevision : string,
+            //these are not documented in the official reference but seem to be the only way to make this work?!
+            ?BarMode    : StyleParam.Barmode,
+            ?BarGap     : float
+
         ) =
             (fun (polar:Polar) -> 
 
@@ -70,6 +76,8 @@ type Polar () =
                 AngularAxis |> DynObj.setValueOpt polar "angularaxis"
                 GridShape   |> DynObj.setValueOptBy polar "gridshape" StyleParam.PolarGridShape.convert
                 UIRevision  |> DynObj.setValueOpt polar "uirevision"
+                BarMode     |> DynObj.setValueOptBy polar "barmode" StyleParam.Barmode.convert
+                BarGap      |> DynObj.setValueOpt polar "bargap"
 
                 polar
             )