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

Exécutez d’abord la reproduction R fournie avec ggplotly(). Suivez ensuite le chemin de conversion des libellés d’axes et des marges ; comme aucun fichier source ni test n’est indiqué dans l’issue, utilisez les tests ggplotly existants s’il y en a. C’est terminé lorsque les libellés renvoyés à la ligne, y compris ceux contenant
, disposent d’une marge suffisante et restent lisibles.