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

まず、提供されている R の再現コードを ggplotly() で実行します。次に、軸ラベルとマージンの変換経路を追跡します。issue ではソースファイルもテストも指定されていないため、存在する場合は既存の ggplotly テストを使用します。完了条件は、
ラベルを含む折り返しラベルに十分なマージンがあり、判読可能な状態が保たれることです。