add other marks to user guid

Author: sl-solution

docs/gallery/Plots/Band/band.jl

@@ -0,0 +1,64 @@
+# ---
+# title: Band plot
+# id: demo_band_plot1
+# description: Using the `Band` mark to produce area plots
+# cover: assets/band_plot1.svg
+# ---
+
+# `Band` allows users to produce Band plot. The plot mark needs a coordinate and lower and upper values.
+
+using InMemoryDatasets, DLMReader, StatisticalGraphics
+
+svg("assets/band_plot1.svg", sgplot(Dataset(x=-5:5, y=-(-5:5).^2, y2=(-5:5).^2 .+ 5), [Band(x=:x, lower=:y, upper=:y2, thickness=2, interpolate=:basis), RefLine(values=[0], axis=:yaxis)], width=100, height=100, xaxis=Axis(translate=0,offset=0, grid=true, griddash=[3]), yaxis=Axis(translate=0, grid=true, offset=0, griddash=[3]))) #hide #md
+
+
+ds = Dataset(
+            x = 1:4,
+            y = rand(4),
+            y2 = rand(4) .+ 5
+)
+
+sgplot(ds, Band(x=:x, lower=:y, upper=:y2))
+
+
+# Combining with other plots
+
+dubai_weather = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                                 "..", "docs", "assets", "dubai_weather.csv"),
+                                 types=Dict(1 =>Date))
+
+sgplot(
+        dubai_weather,
+        [
+          Band(x=:date, lower=:min, upper=:max),
+          Line(x=:date, y=:min, color="#4682b4", thickness=1),
+          Line(x=:date, y=:max, color="#ff7f0e", thickness=0.5),
+          Line(x=:date, y=:pressure, color="#2ca02c", y2axis=true, breaks=true),
+          Scatter(x=:date, y=:pressure, outlinecolor="#2ca02c", size=10, y2axis=true)
+        ],
+        xaxis=Axis(offset=10, type=:date, grid=true, griddash=[1, 1], title="Date"),
+        yaxis=Axis(offset=10, grid=true, griddash=[1, 1], title="Temperature(°C)"),
+        y2axis=Axis(offset=10, title="Pressure")
+)
+
+
+# **unemployment stacked area plot across industries** 
+
+# Reproducing an example from the [`vega`](https://vega.github.io)`s examples collection.
+
+unemployment = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                        "..", "docs", "assets", "unemployment_across_industry.csv"),
+                        types = Dict(2=>Date))
+                        
+sort!(unemployment, :series, rev=true) # keep alphabetical order
+modify!(groupby(unemployment, :date), :count=>cumsum=>:cum_sum)
+sort!(unemployment, [:date,:cum_sum], rev=[false,true]) # put the larger areas behind the smaller one 
+
+sgplot(
+        unemployment,
+        Band(x=:date, lower=0.0, upper=:cum_sum, group=:series, opacity=1),
+        nominal = [:series],
+        xaxis=Axis(type=:time, nice=false),
+        yaxis=Axis(title=""),
+        groupcolormodel = Dict(:scheme=>"category20b"),
+      )

docs/gallery/Plots/Bubble/bubble.jl

@@ -0,0 +1,45 @@
+# ---
+# title: Bubble plot
+# id: demo_bubble1
+# description: Scatter plot with varying size
+# cover: assets/bubble1.svg
+# ---
+
+using InMemoryDatasets, StatisticalGraphics, DLMReader, Chain
+
+svg("assets/bubble1.svg", sgplot(filter(filereader(joinpath(dirname(pathof(StatisticalGraphics)),"..", "docs", "assets", "nations.csv"), emptycolname=true, quotechar='"'), :year, by = ==(2010))[1:3:150, :], Bubble(x=:gdpPercap,y=:lifeExp, size=:population, colorresponse=:region, labelfont="Times", labelsize=8, labelcolor=:group, thickness=0.1, maxsize=20, outlinecolor=:white), clip=false, xaxis=Axis(grid=true, domain=false, labelcolor=:white, titlecolor=:white, tickcolor=:white, gridcolor=:lightgray, gridthickness=0.2, offset=0, tickcount=10, type=:log), yaxis=Axis(grid=true, gridcolor=:lightgray,gridthickness=0.2, offset=0, tickcount=10,domain=false, labelcolor=:white, titlecolor=:white, tickcolor=:white), width=100, height=100, legend=false)) #hide #md
+
+
+# `Bubble` is similar to `Scatter`, however, user can pass a `size` column to `Buble`
+
+ds = Dataset(rand(20, 3), :auto)
+
+sgplot(ds, Bubble(x=:x1, y=:x2, size=:x3), clip=false)
+
+
+# `Bubble` support most of the keywords available to `Scatter`
+
+nations = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                                 "..", "docs", "assets", "nations.csv"),
+                                 emptycolname=true, quotechar='"')
+                                 
+@chain nations begin
+  sort([:population, :continent], rev=[true, false]);
+  filter(:year, by = ==(2010)); 
+  sgplot(
+    Bubble(x=:gdpPercap,
+           y=:lifeExp,
+           colorresponse=:region,
+           colormodel=:category,
+           size=:population,
+           outlinecolor=:white,
+           labelresponse=:country,
+           labelsize=8,
+           labelcolor=:colorresponse,
+           maxsize=70,
+           tooltip=true
+          ),
+          clip=false,
+          xaxis=Axis(type=:log, nice=false),
+      )
+end

docs/gallery/Plots/Density/density.jl

@@ -0,0 +1,45 @@
+# ---
+# title: Density
+# id: demo_density1
+# description: Drawing Density
+# cover: assets/density1.svg
+# ---
+
+using InMemoryDatasets, DLMReader, StatisticalGraphics
+
+y = rand([0, 2, 6], 100) #hide #md
+svg("assets/density1.svg", sgplot(Dataset(x=randn(100) .+ y, y=y), Density(x=:x, type=:kernel, group=:y), nominal=:y, legend=false, width=100, height=100, xaxis=Axis(translate=0,offset=0, grid=true, griddash=[3]), yaxis=Axis(translate=0, grid=true, offset=0, griddash=[3]))) #hide #md
+
+
+# `Density` can be used to fit a normal pdf or a kernel density to data. By default it used normal density.
+
+ds = Dataset(x=rand(100))
+
+sgplot(ds, Density(x=:x))
+
+# Passing `type=:kernel` allows fitting a kernel Distributions
+
+sgplot(ds, Density(x=:x, type=:kernel))
+
+# `Density` like other plots allow `group`
+
+iris = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                                 "..", "docs", "assets", "iris.csv"))
+    
+sgplot(iris, 
+        Density(x=:SepalLength, type=:kernel, group=:Species)
+)
+
+# Users allow to combine `Density` and `Histogram`
+
+ds = Dataset(x=randn(100));
+sgplot(
+        ds,
+        [
+          Histogram(x=:x, color=:steelblue, outlinethickness=0.5, space=0.5),
+          Density(x=:x, type=:kernel, color=:red, fillopacity=0.3),
+          Density(x=:x, color=:green, fillopacity=0.3)
+        ],
+        xaxis = Axis(offset=10, domain=false),
+        yaxis = Axis(offset=10, domain=false, grid=true)
+      )

docs/gallery/Plots/Heatmap/heatmap.jl

@@ -0,0 +1,17 @@
+# ---
+# title: Heatmap
+# id: demo_heatmap1
+# description: Drawing Heatmap (2D Histogram)
+# cover: assets/heat1.svg
+# ---
+
+using InMemoryDatasets, DLMReader, StatisticalGraphics
+
+svg("assets/heat1.svg", sgplot(Dataset(x=randn(1000),y=randn(1000)), Heatmap(x=:x, y=:y, xbincount=5, ybincount=5), width=100, height=100, xaxis=Axis(translate=0,offset=0, grid=true, griddash=[3]), yaxis=Axis(translate=0, grid=true, offset=0, griddash=[3]), legend=false)) #hide #md
+
+# Example
+
+ds = Dataset(x=randn(10000), y=randn(10000))
+
+sgplot(ds, Heatmap(x=:x, y=:y))
+

docs/gallery/Plots/Histogram/histogram.jl

@@ -0,0 +1,44 @@
+# ---
+# title: Histogram
+# id: demo_histogram1
+# description: Drawing Histogram
+# cover: assets/hist1.svg
+# ---
+
+using InMemoryDatasets, DLMReader, StatisticalGraphics
+
+svg("assets/hist1.svg", sgplot(Dataset(x=randn(1000)), Histogram(x=:x, space=0), width=100, height=100, xaxis=Axis(translate=0,offset=0, grid=true, griddash=[3]), yaxis=Axis(translate=0, grid=true, offset=0, griddash=[3]))) #hide #md
+
+
+# `Histogram` draw histogram for given column.
+
+ds = Dataset(x=randn(10000))
+
+sgplot(ds, Histogram(x=:x))
+
+# Assigning the `y` keyword argument, produce horizontal plot
+
+sgplot(ds, Histogram(y=:x))
+
+# By default `Histogram` compute pdf, however, user may pass `:cdf`, `:count`, ... or anyother for scaling the bars
+
+sgplot(ds, Histogram(x=:x, scale=:cdf))
+
+# Like other plots, `Histogram` support `group`,
+
+iris = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                                 "..", "docs", "assets", "iris.csv"))
+    
+sgplot(iris, 
+        Histogram(x=:SepalLength, group=:Species, opacity=0.5)
+)
+
+# Passing `midpoints` allows more control on bin selection
+
+sgplot(iris, 
+        Histogram(x=:SepalLength,
+                    group=:Species,
+                    opacity=0.5,
+                    midpoints=3.5:.4:8
+                )
+)

docs/gallery/Plots/Polygon/polygon.jl

@@ -0,0 +1,73 @@
+# ---
+# title: Polygon
+# id: demo_polygon_plot1
+# description: Using the `Polygon` mark to draw simple polygons
+# cover: assets/polygon1.svg
+# ---
+
+using InMemoryDatasets, StatisticalGraphics, Chain
+
+ds=Dataset(x=[0,0,2,2,4,4,6,6,4,4,2,2,7,7,9,9], y=[0,10,10,6,6,10,10,0,0,4,4,0,0,10,10,0], id=[fill(1,12);fill(2,4)]) #hide #md
+
+svg("assets/polygon1.svg", sgplot(ds, Polygon(x=:x, y=:y, id=:id, opacity=0.5), width=100, height=100, xaxis=Axis(offset=0, padding=10, grid=true), yaxis=Axis(offset=0, padding=10, grid=true))) #hide #md
+
+
+# `Polygon` can be used to draw polygons. Each polygon is represented by xy-coordinates and its id. `sgplot` produces a seperate polygon for each id.
+
+ds=Dataset(
+            x=[0,0,2,2,4,4,6,6,4,4,2,2,7,7,9,9],
+            y=[0,10,10,6,6,10,10,0,0,4,4,0,0,10,10,0],
+            id=[fill(1,12);fill(2,4)]
+        )
+
+sgplot(ds, 
+        Polygon(x=:x, y=:y, id=:id, opacity=0.5),
+        xaxis=Axis(padding=10),
+        yaxis=Axis(padding=10)
+)
+
+# Users can pass `colorresponse` or `group` for colorful drawings
+
+ds = Dataset(id = repeat(1:10, 3), x = rand(30), y=rand(30))
+
+sgplot(ds, Polygon(x=:x, y=:y, id=:id, colorresponse=:id, opacity=0.7))
+
+# `Polygon` can be customised by other keywords,
+
+triangle(a, mul=[1,1,1]) = [(0.0, 0.0) .* 
+                            mul[1], (sqrt(2 * a^2 - 2 * a^2 * cos(a)), 0.0) .* mul[2],
+                            ((a^2 - a^2 * cos(a)) / sqrt(
+                            2 * a^2 - 2 * a^2 * cos(a)),
+                            (a^2 * sin(a)) / sqrt(2 * a^2 - 2 * a^2 * cos(a))) .* mul[3]
+                            ]
+
+ds = Dataset(x=range(0.01, 3, step=0.091))
+
+@chain ds begin
+  modify!(
+            :x => byrow(x->x/10) => :opacity,
+            :x => byrow(triangle) => :t1,
+            :x => byrow(x->triangle(x, [(1,-1), (1,-1), (3.1,-1)])) => :t2
+          )
+ 
+  flatten!(r"^t")
+
+  modify!( 
+            :t1 => splitter => [:x1, :y1],
+            :t2 => splitter => [:x2, :y2]
+          )
+  sgplot( 
+          [
+            Polygon(x="x$i", y="y$i",
+                    id=:x,
+                    opacityresponse=:opacity,
+                    color=:darkgreen,
+                    outline=false)
+            for i in 1:2
+          ],
+          height=200,
+          width=800,
+          xaxis=Axis(show=false),
+          yaxis=Axis(show=false)
+        )
+end

docs/gallery/Plots/Reg/reg.jl

@@ -0,0 +1,66 @@
+# ---
+# title: Regression line
+# id: demo_reg
+# description: Fitting regression lines to data
+# cover: assets/reg1.svg
+# ---
+
+using InMemoryDatasets, StatisticalGraphics, DLMReader
+
+# User can use `Reg` to draw regression lines fitted to data
+
+iris = filereader(joinpath(dirname(pathof(StatisticalGraphics)),
+                                 "..", "docs", "assets", "iris.csv"))
+
+svg("assets/reg1.svg", sgplot(iris, Reg(x=2,y=1,group=5, clm=true, degree=3), clip=false, wallcolor=:lightgray, xaxis=Axis(grid=true, gridcolor=:white, offset=0), yaxis=Axis(grid=true, gridcolor=:white, offset=0), width=100, height=100, legend=false)) #hide #md
+
+
+sgplot(iris, Reg(x=:SepalLength, y=:SepalWidth))
+
+# Use `Scatter` to add the scatter plot of data
+
+sgplot(iris, [
+    Reg(x=:SepalLength, y=:SepalWidth),
+    Scatter(x=:SepalLength, y=:SepalWidth)
+    ],
+    clip=false
+)
+
+# Passing `degree` allows to control the degree of polynomial fitted to data
+
+sgplot(iris, [
+    Reg(x=:SepalLength, y=:SepalWidth, degree=3),
+    Scatter(x=:SepalLength, y=:SepalWidth)
+    ],
+    clip=false
+)
+
+# `clm` and `cli` produce the confidence band (by default 95%) for mean and prediction, respectively
+
+sgplot(iris, [
+    Reg(
+        x=:SepalLength, y=:SepalWidth,
+        degree=3,
+        clm=true,
+        cli=true
+        ),
+    Scatter(x=:SepalLength, y=:SepalWidth)
+    ],
+    clip=false
+)
+
+
+# `group` is supported
+
+sgplot(iris, [
+    Reg(
+        x=:SepalLength, y=:SepalWidth,
+        degree=3,
+        clm=true,
+        cli=true,
+        group=:Species
+        ),
+    Scatter(x=:SepalLength, y=:SepalWidth)
+    ],
+    clip=false
+)

docs/gallery/Plots/Segment/segment.jl

@@ -34,7 +34,8 @@ sgplot(cars_sum,
                     Scatter(y=:Origin, x=r"^max", symbol=:stroke, angle=90)
                 ],
                 xaxis=Axis(title="Acceleration", padding=10),
-                yaxis=Axis(padding=.5)
+                yaxis=Axis(padding=.5),
+                width=200
         )
 
 # `Segment` like other plots accept `group`.

docs/gallery/Plots/TextPlot/textplot.jl

@@ -0,0 +1,16 @@
+# ---
+# title: TextPlot
+# id: demo_text1
+# description: Put text on a graph
+# cover: assets/text1.svg
+# ---
+
+using InMemoryDatasets, DLMReader, StatisticalGraphics
+
+svg("assets/text1.svg", sgplot(Dataset(x=[1,2,3], y=[1,2,3], text='A':'C'), TextPlot(x=:x, y=:y, text=:text), width=100, height=100, xaxis=Axis(translate=0,offset=0, grid=false, griddash=[3], padding=10), yaxis=Axis(translate=0, grid=false, padding=10, offset=0, griddash=[3]), legend=false, clip=false)) #hide #md
+
+# Example
+
+ds = Dataset(x=rand(10), y=rand(10), text='A':'J')
+
+sgplot(ds, TextPlot(x=:x, y=:y, text=:text))