Merge branch 'main' of https://github.com/TidierOrg/TidierPlots.jl

src/geoms/geom_boxplot.jl

@@ -1,3 +1,29 @@
+function boxplot_groups(aes_dict::Dict{String, Symbol},
+    args_dict::Dict{Any, Any}, required_aes::Vector{String}, plot_data::DataFrame)
+
+    factor_aes = [aes for (aes, v) in aes_dict if eltype(plot_data[!, v]) <: Union{AbstractString, AbstractChar, CategoricalValue}]
+
+    main_factor_aes = "x"
+
+    if "y" in factor_aes && !("x" in factor_aes)
+        required_aes = ["y", "x"]
+        args_dict["orientation"] = :horizontal
+        main_factor_aes = "y"
+    end
+
+    dodge_aes = [aes for aes in factor_aes if aes_dict[aes] != aes_dict[main_factor_aes]]
+
+    if length(dodge_aes) > 1
+        @warn "Too many categorical aes specified, can't select dodge automatically"
+    end
+
+    if length(dodge_aes) != 0
+        aes_dict["dodge"] = aes_dict[dodge_aes[1]]
+    end
+
+    return (aes_dict, args_dict, required_aes, plot_data)
+end
+
 """
     geom_boxplot(aes(...), ...)
     geom_boxplot(plot::GGPlot, aes(...), ...)
@@ -12,14 +38,15 @@ Compactly displays the distribution of continuous data.
 
 # Required Aesthetics
 
-- `x` OR `y`
+- `x`
+- `y`
 
 # Supported Optional Aesthetics (See [`aes`](@ref) for specification options)
 
-TBD
+- colour/color
 
 # Supported Options
 
 TBD
 """
-geom_boxplot = geom_template("geom_boxplot", ["x", "y"], :BoxPlot)
+geom_boxplot = geom_template("geom_boxplot", ["x", "y"], :BoxPlot; aes_function = boxplot_groups)