Cannot change colour legend position for continuous variable

Locked question #1049 relates to the same issue, which still persists. Changing legend position is fiddly but works ok for factor variable:

require(ggplot2)
require(ggmap)
require(plotly)

m = c(left=60.5, bottom =29.3, right = 75.2, top = 38.5) |> 
  ggmap::get_stamenmap(maptype = 'toner', zoom = 6)

d = data.frame(x = rnorm(mean = 65, sd = 3, 50), 
               y = rnorm(mean = 34, sd = 2, 50))

p1 = ggmap(m) + 
  geom_point(data=d, aes(x, y, col = factor(round(x))), size=3) +
  labs(col = 'Eastness', x = NULL, y = NULL) +
  theme_void()

ggplotly(p1) |> layout(legend = list(xanchor  = "left", x = 0, yanchor = "bottom", y = 0.2))

But for a continuous variable this fails:

p2 = ggmap(m) + 
  geom_point(data=d, aes(x, y, col = x), size=3) +
  labs(col = 'Eastness', x = NULL, y = NULL) +
  theme_void()

ggplotly(p2) |> layout(legend = list(xanchor  = "left", x = 0, yanchor = "bottom", y = 0.2))

This seems to me this is a pretty basic and important thing to get right. I wonder if there's any chance to fix?

Commencez par exécuter les exemples R reproductibles pour p1 et p2 dans l’issue, en comparant les légendes de couleur de type factor et continues après l’appel à layout. Suivez la manière dont ggplotly convertit chaque légende et dont le positionnement de layout est appliqué. Le travail est terminé lorsque la légende de couleur continue est déplacée vers la position demandée sans casser le cas factor.