ggplot2画图箭头在plotly里面无法显示

我用ggplot2画了张图片，然后用ggplotly转化成plotly时，箭头消失了。请问各位大神，怎么解决？
可用用以下代码测试：

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

复制代码

应该无解。
plotly的作者Carson Sievert在他的github官网中说过：No geom_label or geom_segment(arrow=__) support
(https://github.com/ropensci/plotly/issues/469)

cheetahfly 发表于 2018-4-23 13:57
应该无解。
plotly的作者Carson Sievert在他的github官网中说过：No geom_label or geom_segment(arrow=__ ...

感谢回复，确实是无解的。
请问下你知道为什么我plotlyOutput里面没法拖动图片吗？
一拖动shiny就卡死了。