legends for colour & fill not merging with guide_custom

[davidhodge931]

Awesome new package - great work!

Minor thing I noticed was the legends for colour & fill were not merging with guide_custom

library(gguidance)
library(tidyverse)
library(palmerpenguins)

penguins |>
  group_by(species) |>
  summarise(across(flipper_length_mm, \(x) mean(x, na.rm = TRUE))) |>
  ggplot() +
  geom_col(
    aes(x = flipper_length_mm,
    y = species,
    colour = flipper_length_mm,
    fill = flipper_length_mm)) +
  guides(
    colour = guide_colourbar_custom(),
    fill = guide_colourbar_custom(),
  ) 

[teunbrand]

Thanks for the report David! As these are three little guides wearing a trenchcoat I'd still have to figure out how best choose merging criteria.

[teunbrand]

Should have better detection of what and cannot be merged now

library(gguidance)
#> Loading required package: ggplot2
library(tidyverse)
library(palmerpenguins)

penguins |>
  group_by(species) |>
  summarise(across(flipper_length_mm, \(x) mean(x, na.rm = TRUE))) |>
  ggplot() +
  geom_col(
    aes(x = flipper_length_mm,
        y = species,
        colour = flipper_length_mm,
        fill = flipper_length_mm)) +
  guides(
    colour = guide_colourbar_custom(),
    fill = guide_colourbar_custom(),
  ) 

^{Created on 2024-04-27 with reprex v2.1.0}