Multi line facet labels displaying incorrectly with ggplotly

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)

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ị.