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)
})

Esegui prima la riproduzione R fornita tramite ggplotly(). Traccia quindi il percorso di conversione delle etichette degli assi e dei margini; poiché nell’issue non sono indicati file sorgente né test, usa i test ggplotly esistenti, se presenti. Il lavoro è completato quando le etichette a capo, comprese quelle con
, hanno un margine sufficiente e rimangono leggibili.