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

Trước tiên, chạy bản tái hiện R được cung cấp thông qua ggplotly(). Sau đó, lần theo đường dẫn chuyển đổi nhãn trục và lề; vì issue không nêu tệp nguồn hoặc bài kiểm thử nào, hãy sử dụng các bài kiểm thử ggplotly hiện có nếu có. Được coi là hoàn tất khi các nhãn được ngắt dòng, bao gồm cả các nhãn có
, có đủ lề và vẫn dễ đọc.