new_scale_colour does not work with a scale_* function that includes a guide argument about ggnewscale HOT 4 CLOSED

library(tidyverse)
#> Warning: package 'purrr' was built under R version 4.3.1
#> Warning: package 'dplyr' was built under R version 4.3.1
library(palmerpenguins)
library(ggnewscale)

d <- penguins |>
  group_by(sex, species) |>
  summarise(across(flipper_length_mm, \(x) mean(x, na.rm = TRUE))) |>
  tidyr::drop_na(sex) |>
  mutate(species = stringr::str_to_sentence(species))
#> `summarise()` has grouped output by 'sex'. You can override using the `.groups`
#> argument.

d |>
  ggplot(aes(y = flipper_length_mm, x = sex, colour = species, fill = species)) +
  geom_col(position = "dodge", width = 0.75, alpha = 0.8) +
  scale_colour_manual(values = c("lightgrey", "darkblue", "orange"),
                      aesthetics = c("colour", "fill")) +
  guides(colour = ggplot2::guide_legend(reverse = TRUE, title.position = "top"),
         fill = ggplot2::guide_legend(reverse = TRUE, title.position = "top")) +
  new_scale_color()