如何解决geom_segment箭头在ggplotly中不显示的问题

太懂这种糟心的情况了！用ggplot画好带箭头的有向图，转成plotly互动版居然箭头直接消失——这其实是因为ggplotly对geom_segment里的arrow参数支持一直不太完善。我给你两种亲测有效的解决办法，结合你的示例代码来演示：

这种方法先把基础的ggplot图形转成plotly对象，再用add_annotations功能补加箭头，好处是能精准控制箭头的样式、大小和颜色，兼容性拉满。

完整可运行代码：

library(ggplot2)
library(plotly)

# 你的原始数据
position_df <- data.frame(x_position=1:2,y_position=3:4) 
edge_df <- data.frame(x=1,y=3,xend=2,yend=4)

# 先绘制不带箭头的基础ggplot图形
p <- ggplot(position_df,aes(x=x_position,y=y_position))+ 
  geom_point(color="red",size=10,alpha=0.8)

# 转换为plotly对象
p_plotly <- ggplotly(p)

# 用add_annotations添加箭头
p_plotly <- p_plotly %>%
  add_annotations(
    x = edge_df$xend, y = edge_df$yend,  # 箭头的终点坐标
    xref = "x", yref = "y",
    ax = edge_df$x, ay = edge_df$y,      # 箭头的起点坐标
    axref = "x", ayref = "y",
    arrowhead = 2,  # 箭头样式，可选1-10不同形状
    arrowsize = 1.5,  # 箭头大小
    showarrow = TRUE,
    arrowcolor = "black"  # 箭头颜色
  )

# 查看最终互动图
p_plotly

如果不想切换到plotly原生语法，可以用ggforce包的geom_link函数——它支持arrow参数，而且ggplotly对它的兼容性更好，几乎能完美保留箭头效果。

完整可运行代码：

library(ggplot2)
library(plotly)
library(ggforce)

# 你的原始数据
position_df <- data.frame(x_position=1:2,y_position=3:4) 
edge_df <- data.frame(x=1,y=3,xend=2,yend=4)

# 用geom_link绘制带箭头的线段
p <- ggplot(position_df,aes(x=x_position,y=y_position))+ 
  geom_point(color="red",size=10,alpha=0.8)+
  geom_link(
    data = edge_df,
    aes(x = x, y = y, xend = xend, yend = yend),
    arrow = arrow(type = "closed", length = unit(0.2, "inches")),
    color = "black"
  )

# 直接转换为plotly，箭头会正常显示
ggplotly(p)

两种方法都能解决箭头消失的问题，你可以根据自己的需求选择：方法1适合需要精细调整箭头细节的场景，方法2更符合你原本的ggplot写作习惯，上手更快~

内容的提问来源于stack exchange，提问作者Jiajin.Chen