Add fillto to BarPlot aesthetics (#535)

Fixes #519

CHANGELOG.md

@@ -2,6 +2,8 @@
 
 ## Unreleased
 
+- Added `fillto` to `BarPlot` aesthetics [#535](https://github.com/MakieOrg/AlgebraOfGraphics.jl/pull/535).
+
 ## v0.8.3 - 2024-08-23
 
 - Fixed incorrect x/y axis assignment for the `violin` plot type [#528](https://github.com/MakieOrg/AlgebraOfGraphics.jl/pull/528).

src/aesthetics.jl

@@ -82,8 +82,8 @@ function aesthetic_mapping(::Type{BarPlot}, N::Int)
     positionals = if N == 1
         [
             1 => :direction => dictionary([
-            :y => AesY,
-            :x => AesX,
+                :y => AesY,
+                :x => AesX,
             ])
         ]
     else
@@ -107,6 +107,10 @@ function aesthetic_mapping(::Type{BarPlot}, N::Int)
         ]),
         :dodge => AesDodge,
         :stack => AesStack,
+        :fillto => :direction => dictionary([
+            :y => AesY,
+            :x => AesX,
+        ]),
     ])
 end
 

test/reference_tests.jl

@@ -39,6 +39,18 @@ reftest("barplot row layout") do
     data((; x = ["A", "B", "C"], y = 1:3, z = ["X", "Y", "Z"])) * mapping(:x, :y; row = :z) * visual(BarPlot) |> draw
 end
 
+reftest("barplot fillto") do
+    df = (; x = 11:20, upper = 1:10, lower = 0:-1:-9)
+    spec = data(df) * mapping(:x, :upper, fillto = :lower) * visual(BarPlot)
+    draw(spec)
+end
+
+reftest("barplot fillto direction x") do
+    df = (; x = 11:20, upper = 1:10, lower = 0:-1:-9)
+    spec = data(df) * mapping(:x, :upper, fillto = :lower) * visual(BarPlot, direction = :x)
+    draw(spec)
+end
+
 for (plottype, name) in zip([Lines, Scatter], ["lines", "scatter"])
     reftest("$name") do
         data((; x = [1, 3, 2, 4], y = ["A", "B", "C", "D"])) * mapping(:x, :y) * visual(plottype) |> draw