Add withTitle extension

Author: muehlhaus

src/FSharp.Plotly/Chart.fs

@@ -349,6 +349,25 @@ type Chart =
         Chart.Doughnut(values,Labels=labels,?Name=Name,?Showlegend=Showlegend,?Color=Color,?Hole=Hole,?TextPosition=TextPosition,?TextFont=TextFont,?Hoverinfo=Hoverinfo,?Textinfo=Textinfo,?Opacity=Opacity)
 
 
+//    /// Uses points, line or both depending on the mode to represent data points
+//    static member Scatter(x, y,mode,?Name,?Showlegend,?MarkerSymbol,?Color,?Opacity,?Labels,?TextPosition,?TextFont,?Dash,?Width) = 
+//        Trace.initScatter (
+//                TraceStyle.Scatter(X = x,Y = y, Mode=mode) )               
+//        |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity)
+//        |> TraceStyle.Line(?Color=Color,?Dash=Dash,?Width=Width)
+//        |> TraceStyle.Marker(?Color=Color,?Symbol=MarkerSymbol)
+//        |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
+//        |> GenericChart.ofTraceObject 
+//
+//
+//     /// Uses points, line or both depending on the mode to represent data points
+//    static member Scatter(xy,mode,?Name,?Showlegend,?MarkerSymbol,?Color,?Opacity,?Labels,?TextPosition,?TextFont,?Dash,?Width) = 
+//        let x,y = Seq.unzip xy 
+//        Chart.Scatter(x, y, mode,?Name=Name,?Showlegend=Showlegend,?MarkerSymbol=MarkerSymbol,?Color=Color,?Opacity=Opacity,?Labels=Labels,?TextPosition=TextPosition,?TextFont=TextFont,?Dash=Dash,?Width=Width)
+
+
+
+
 // //    /// Computes the bi-dimensional histogram of two data samples and auto-determines the bin size.
 // //    static member Histogram2d(x,y,?Name,?HistNorm,?HistFunc,?Colorscale,?Showscale,?zSmooth,?Colorbar,?zAuto,?zMin,?zMax,?nBinsx,?nBinsy,?Xbins,?Ybins) =         
 // //        let trace = 
@@ -401,7 +420,7 @@ type Chart =
 
     /// Uses points, line or both depending on the mode to represent 3d-data points
     static member Mesh3d(x, y, z, mode, ?Name,?Showlegend,?MarkerSymbol,?Color,?Opacity,?Labels,?TextPosition,?TextFont,?Dash,?Width) = 
-        Trace3d.initMesh3d (Trace3dStyle.Mesh3d(X = x,Y = y,Z=z,?Color=Color) )              
+        Trace3d.initMesh3d (Trace3dStyle.Mesh3d(X = x,Y = y,Z=z) ) //,?Color=Color) )              
         |> TraceStyle.TraceInfo(?Name=Name,?Showlegend=Showlegend,?Opacity=Opacity)
         |> TraceStyle.TextLabel(?Text=Labels,?Textposition=TextPosition,?Textfont=TextFont)
         |> GenericChart.ofTraceObject 

src/FSharp.Plotly/ChartExtensions.fs

@@ -103,11 +103,11 @@ module ChartExtensions =
 
 
 
-        // // Sets x-Axis of 2d and 3d- Charts
-        // static member withX_AxisStyle(title,?MinMax,?Showgrid) =                    
-        //     let range = if MinMax.IsSome then Some (StyleOption.RangeValues.MinMax (MinMax.Value)) else None
-        //     let xaxis = Options.Axis(Title=title,?Range=range,?Showgrid=Showgrid)
-        //     Chart.withX_Axis(xaxis) 
+        // Sets x-Axis style with ... 
+        static member withX_AxisStyle(title,?MinMax,?Showgrid) =                    
+            let range = if MinMax.IsSome then Some (StyleParam.RangeValues.MinMax (MinMax.Value)) else None
+            let xaxis = Axis.LinearAxis.init(Axis.LinearAxis.LinearAxis(Title=title,?Range=range,?Showgrid=Showgrid))
+            Chart.withX_Axis(xaxis) 
 
 
         // Sets y-Axis of 2d and 3d- Charts
@@ -133,39 +133,56 @@ module ChartExtensions =
                     GenericChart.addLayout layout ch
             )
 
-        // // Sets y-Axis of 3d- Charts
-        // static member withY_AxisStyle(title,?MinMax,?Showgrid) =
-        //     let range = if MinMax.IsSome then Some (StyleOption.RangeValues.MinMax (MinMax.Value)) else None
-        //     let yaxis = Options.Axis(Title=title,?Range=range,?Showgrid=Showgrid)
-        //     Chart.withY_Axis(yaxis)                
+        // Sets y-Axis style with ... 
+        static member withY_AxisStyle(title,?MinMax,?Showgrid) =
+            let range = if MinMax.IsSome then Some (StyleParam.RangeValues.MinMax (MinMax.Value)) else None
+            let yaxis = Axis.LinearAxis.init(Axis.LinearAxis.LinearAxis(Title=title,?Range=range,?Showgrid=Showgrid))
+            Chart.withY_Axis(yaxis)                
 
 
 
-        // // Sets z-Axis of 3d- Charts
-        // static member withZ_Axis(zAxis:AxisOptions) =       
-        //     (fun (ch:GenericChart) ->                                  
-        //         let layout = 
-        //             Options.Layout(Scene=Options.Scene(zAxis=zAxis))
-        //         GenericChart.addLayout layout ch
-        //     )
+        // Sets z-Axis of 3d- Charts
+        static member withZ_Axis(zAxis:Axis.LinearAxis) =       
+            (fun (ch:GenericChart) ->                                  
+                let layout =
+                    Layout() 
+                    |> Layout.style(Scene=Scene.init(Scene.style (zAxis=zAxis) ))
+                GenericChart.addLayout layout ch
+             )
 
-        // // Sets z-Axis of 3d- Charts
-        // static member withZ_AxisStyle(title,?MinMax) =
-        //     let range = if MinMax.IsSome then Some (StyleOption.RangeValues.MinMax (MinMax.Value)) else None
-        //     let zaxis = Options.Axis(Title=title,?Range=range)
-        //     Chart.withZ_Axis(zaxis)                
+        // Sets z-Axis style with ... 
+        static member withZ_AxisStyle(title,?MinMax,?Showgrid) =
+            let range = if MinMax.IsSome then Some (StyleParam.RangeValues.MinMax (MinMax.Value)) else None
+            let zaxis = Axis.LinearAxis.init(Axis.LinearAxis.LinearAxis(Title=title,?Range=range,?Showgrid=Showgrid))
+            Chart.withZ_Axis(zaxis)                
 
 
 
+        // Set the Layout options of a Chart
+        static member withLayout(layout:Layout) =
+            (fun (ch:GenericChart) -> 
+                GenericChart.addLayout layout ch)         
 
 
+        // Set the title of a Chart
+        static member withTitle(title,?Titlefont) =
+            (fun (ch:GenericChart) ->                                  
+                let layout =
+                    Layout() 
+                    |> Layout.style(Title=title,?Titlefont=Titlefont)
+                GenericChart.addLayout layout ch
+             )  
 
 
+        // Set showLegend of a Chart
+        static member withLegend(showlegend) =
+            (fun (ch:GenericChart) ->                                  
+                let layout =
+                    Layout() 
+                    |> Layout.style(Showlegend=showlegend)
+                GenericChart.addLayout layout ch
+             )  
 
-        // Set the Layout options of a Chart
-        static member withLayout(layout:Layout) =
-            (fun (ch:GenericChart) -> 
-                GenericChart.addLayout layout ch)         
 
         // Set the size of a Chart
         static member withSize(width,heigth) =            
@@ -218,14 +235,12 @@ module ChartExtensions =
         static member Combine(gCharts:seq<GenericChart>) =
             GenericChart.combine gCharts
 
-//        /// Save chart as html single page
-//        static member SaveHtmlAs pathName (ch:GenericChart) =                                     
-//            let html = GenericChart.toEmbeddedHTML ch
-//            let tempPath = Path.GetTempPath()
-//            let file = sprintf "%s.html" guid
-//            let path = Path.Combine(tempPath, file)
-//            File.WriteAllText(path, html)
-//            System.Diagnostics.Process.Start(path) |> ignore
+        /// Save chart as html single page
+        static member SaveHtmlAs pathName (ch:GenericChart) =                                     
+            let html = GenericChart.toEmbeddedHTML ch
+            let file = sprintf "%s.html" pathName // remove file extension
+            File.WriteAllText(file, html)
+            System.Diagnostics.Process.Start(file) |> ignore
 
 
         /// Show chart in browser