ggplotly does not preserve arrows created using geom_segment

If I plot arrows using geom_segment() in ggplot and then convert the plot with ggplotly, the line segment is preserved as expected but the arrows are not. See example below:

Before: We have line segments and arrows.

library(ggplot)
df2 <- expand.grid(
  lineend = c('round', 'butt', 'square'),
  linejoin = c('round', 'mitre', 'bevel'),
  stringsAsFactors = FALSE
)
df2 <- data.frame(df2, y = 1:9)
p <- ggplot(df2, aes(x = 1, y = y, xend = 2, yend = y, label = paste(lineend, linejoin))) +
  geom_segment(
    lineend = df2$lineend, linejoin = df2$linejoin,
    size = 3, arrow = arrow(length = unit(0.3, "inches"))
  ) +
  geom_text(hjust = 'outside', nudge_x = -0.2) +
  xlim(0.5, 2)

After: We have line segments but NO arrows.

ggplotly(p)

首先執行提供的 R 範例，使用 geom_segment() 和 ggplotly() 重現缺少的箭頭。追蹤 ggplotly 如何轉換 geom_segment 圖層，接著確認轉換後的繪圖同時保留箭頭和線段。