`ggplotly` uses colour that doesn't match the displayed gradient when providing one single numeric value to `fill` or `colour`

When converting from a ggplot object to a plotly interactive visualisation with ggplotly(), if there is only one numeric value for fill or colour, the wrong gradient colour is used according to the displayed legend. The legend uses a white-to-red gradient that doesn't match the blue gradient used in ggplot2.

library(ggplot2)
library(plotly)
# fill takes one numeric value
(single_value <- ggplot(mapping = aes(x = 1, y = 1, fill = 1)) +
  geom_col())

Convert to plotly:

# ggplotly(single_value)

Using two numeric values works well:

# fill takes 2 numeric values
(two_values <- ggplot(mapping = aes(x = 1:2, y = 1:2, fill = 1:2)) +
    geom_col())

Convert to plotly:

# ggplotly(two_values)

Using:

• R 4.1.0
• ggplot2 3.3.3
• plotly 4.9.3

Comience ejecutando los ejemplos del issue con un solo valor y con dos valores, y compare la salida de ggplot2 con la salida de ggplotly, centrándose en el gradiente de fill o colour y la leyenda. El issue estará resuelto cuando un único valor numérico produzca un color de gradiente renderizado que coincida con su leyenda mostrada, con una prueba de regresión que cubra tanto fill como colour.