Bug: where reversed global colour & fill aesthetic, and fixed colour in geom

[davidhodge931]

Not sure if this is fixable at ggplot2 or scales ends. So raised at both places
tidyverse/ggplot2#5531

In the latest DEV version of scales, there seems to be a bug where ggplot is not able to over-ride a reversed global colour aesthetic with a fixed colour in a subsequent layer. This same code works perfectly with the current CRAN version of scales. Whether I used the DEV or CRAN version of ggplot2 had no effect on this.

library(tidyverse)
#> Warning: package 'purrr' was built under R version 4.3.1
#> Warning: package 'dplyr' was built under R version 4.3.1
#> Warning: package 'forcats' was built under R version 4.3.2
#> Warning: package 'lubridate' was built under R version 4.3.1
library(patchwork)

palmerpenguins::penguins |>
  drop_na() |> 
  group_by(species) |>
  summarise(body_mass_g = mean(body_mass_g)) |>
  mutate(lower = body_mass_g * 0.95) |> 
  mutate(upper = body_mass_g * 1.2)|>
  ggplot(aes(x = body_mass_g,
         y = species,
         col = fct_rev(species),
         fill = fct_rev(species))) +
  geom_col(
    width = 0.75,
    alpha = 0.5
  ) +
  geom_errorbar(
    aes(xmin = lower, xmax = upper),
    colour = "black",
    width = 0.1
  )

^{Created on 2023-11-10 with reprex v2.0.2}

[teunbrand]

A more minimal reprex for {scales}; training same data twice re-sorts levels.

library(scales)

fct <- factor(LETTERS[1:3], LETTERS[3:1])

r <- DiscreteRange$new()
r$train(fct)
r$range
#> [1] "C" "B" "A"

r$train(fct)
r$range
#> [1] "A" "B" "C"

^{Created on 2023-11-21 with reprex v2.0.2}

[thomasp85]

Fixed in dev

[davidhodge931]

Awesome, thanks!