scale_colour_stepsn does not work with trans of "reverse" or c("log10", "reverse")

[davidhodge931]

library(tidyverse)
library(scales)  
#> Warning: package 'scales' was built under R version 4.3.1
#> 
#> Attaching package: 'scales'
#> The following object is masked from 'package:purrr':
#> 
#>     discard
#> The following object is masked from 'package:readr':
#> 
#>     col_factor
p <- pressure |>
  ggplot() +
  geom_point(
    aes(
      x = temperature, , 
      y = pressure,
      col = pressure,
    ))

# p + scale_colour_gradientn(colors = viridis::viridis(10), trans = "identity")
# p + scale_colour_gradientn(colors = viridis::viridis(10), trans = "log10")
# p + scale_colour_gradientn(colors = viridis::viridis(10), trans = "reverse")
# p + scale_colour_gradientn(colors = viridis::viridis(10), trans = c("log10", "reverse"))
# 
# p + scale_colour_stepsn(colors = viridis::viridis(10), trans = "identity")
# p + scale_colour_stepsn(colors = viridis::viridis(10), trans = "log10")
p + scale_colour_stepsn(colors = viridis::viridis(10), trans = "reverse")

p + scale_colour_stepsn(colors = viridis::viridis(10), trans = c("log10", "reverse"))

^{Created on 2023-07-19 with reprex v2.0.2}

[teunbrand]

I think this is a fallout from the upstream issue that binned scales don't deal with trans = "reverse" very well, which should probably be resolved in ggplot2.

library(ggplot2)
ggplot(mtcars) +
  geom_bar(aes(mpg)) +
  scale_x_binned(trans = "reverse")

^{Created on 2023-07-19 with reprex v2.0.2}