`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

まず、issue にある単一値と 2 値の例を実行し、ggplot2 と ggplotly の出力を比較します。fill または colour のグラデーションと凡例に注目してください。単一の数値によって、表示された凡例と一致するレンダリング済みのグラデーション色が生成され、fill と colour の両方を対象とするリグレッションテストがあることが、issue の完了条件です。