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?

Inizia eseguendo gli esempi R riproducibili per p1 e p2 nell’issue, confrontando le legende dei colori factor e continue dopo la chiamata a layout. Traccia il modo in cui ggplotly converte ciascuna legenda e come viene applicato il posizionamento di layout. Il lavoro è completato quando la legenda dei colori continua viene spostata nella posizione richiesta senza compromettere il caso factor.