Multi line facet labels displaying incorrectly with ggplotly

Bắt đầu bằng cách chạy ví dụ R có thể tái lập được đã cung cấp và so sánh đối tượng ggplot với kết quả của plotly::ggplotly(myplot), tập trung vào các nhãn facet_grid do label_wrap_gen tạo ra với multi_line = TRUE. Công việc hoàn tất khi các nhãn facet_grid nhiều dòng hiển thị chính xác trong biểu đồ tương tác đã chuyển đổi mà không làm ảnh hưởng đến bố cục được hiển thị.

Multiline is successfully set in the ggplot object with labeller = ggplot2::label_wrap_gen(width = 15, multi_line = TRUE) but then displays incorrectly when passed to ggplotly

df <- dplyr::tibble(fruit = c("Apples", "Pears", "Bananas", "Apples", "Pears", "Bananas"),
             metric = c("METRIC 1", "METRIC 1", "METRIC 1", "METRIC 1 - METRIC 2", "METRIC 1 - METRIC 2", "METRIC 1 - METRIC 2"),
             value = c(1000, 2000, 3000, 2000, 3000, 3000))

myplot <- ggplot2::ggplot(
  data = df,
  ggplot2::aes(x = fruit,
               y = value,
               fill = metric)) +
  ggplot2::geom_bar(stat = "identity")  +
  ggplot2::geom_abline(intercept = 0, slope = 0, lty = 2, color = "grey") +
  ggplot2::facet_grid(cols = ggplot2::vars(metric),
                      scales = "fixed",
                      labeller = ggplot2::label_wrap_gen(width = 15,
                                                         multi_line = TRUE)
                      ) +
  ggplot2::coord_flip() +
  ggplot2::theme(
    text = ggplot2::element_text(size = 14,
                                 color = "#0D0D0D"),
    axis.title.x = ggplot2::element_blank(),
    axis.title.y = ggplot2::element_blank(),
    axis.text = ggplot2::element_text(color = "#0D0D0D"),
    axis.ticks = ggplot2::element_blank(),
    axis.title = ggplot2::element_text(face = "bold"),
    panel.background = ggplot2::element_blank(),
    plot.margin = ggplot2::unit(c(0, 0, 0, 0), units = "cm"),
    legend.position = "none"
    ,
    strip.text = ggplot2::element_text(lineheight = 2)
  )

plotly::ggplotly(myplot)