ggplotly() does not adjust margin when axis labels are wrapped

library(ggplot2)
library(plotly)

df <- data.frame(
  a = "A very long label that needs to be wrapped",
  b = 10,
  c = "A very long label<br>that needs<br>to be wrapped"
)
wrap <- function(x) stringr::str_wrap(x, 10)

ggplotly({
  ggplot(df, aes(a, b)) +
    geom_col() +
    coord_flip() +
    scale_x_discrete(labels = wrap)
})

ggplotly({
  ggplot(df, aes(c, b)) +
    geom_col() +
    coord_flip() +
    scale_x_discrete(labels = wrap)
})

Ejecuta primero la reproducción de R proporcionada mediante ggplotly(). Después, sigue la ruta de conversión de las etiquetas de los ejes y los márgenes; como en el issue no se menciona ningún archivo fuente ni ninguna prueba, usa las pruebas existentes de ggplotly si las hay. Se considera terminado cuando las etiquetas ajustadas, incluidas las etiquetas con
, tienen suficiente margen y siguen siendo legibles.