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)

Bắt đầu bằng cách chạy ví dụ R được cung cấp với geom_segment() và ggplotly() để tái hiện các mũi tên bị thiếu. Theo dõi cách ggplotly chuyển đổi các layer geom_segment, sau đó xác minh rằng biểu đồ đã chuyển đổi vẫn giữ cả các mũi tên lẫn các đoạn thẳng.