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 レイヤーをどのように変換するかを追跡し、その後、変換されたプロットで矢印と線分の両方が保持されていることを確認します。