如何解决geom_segment中的箭头无法在plotly下显示

Question

我使用ggplot2绘制图片。因为定向图片，我在geom_segment中使用箭头选项。但是当我使用ggplotly在情节下显示我的图片时，箭头消失了。我该如何显示箭头？ 您可以运行以下代码进行调试。

positiox_positiony <- data.frame(x_position=1:2,y_position=3:4)
node_edge_xy <- data.frame(x=1,y=3,xend=2,yend=4)
p <- ggplot(positiox_positiony,aes(x=x_position,y=y_position))+
  geom_point(color="red",size=10,alpha=0.8)+
  geom_segment(data=node_edge_xy,aes(x = x,y = y,xend = xend,yend = yend),
               arrow = arrow(length = unit(0.25,"cm"),ends="last",type="closed"))
p

ggplotly(p)

Answer 1

一个不优雅的解决方案：使用plotly注释添加箭头。

g <- ggplotly(p) %>%
      layout(annotations=list(
         list(
           x=positiox_positiony$x_position[2],
           y=positiox_positiony$y_position[2],
           showarrow=TRUE,
           xref = "x",
           yref = "y",
           arrowhead = 2,
           arrowsize = 1.5,
           ax=-20,
           ay=20
         )
))
g