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)

Commencez par exécuter l’exemple R fourni avec geom_segment() et ggplotly() afin de reproduire les flèches manquantes. Suivez la manière dont ggplotly convertit les couches de geom_segment, puis vérifiez que le graphique converti conserve à la fois les flèches et les segments de ligne.