如何在ggiraph中配置线段悬停选项？交互式网络边缘高亮失效问题

问题场景 #

使用ggiraph结合ggraph制作交互式网络图，需求是实现边缘悬停时高亮（蓝色、高透明度、加粗）并显示edge.id信息。目前edge.id的tooltip交互正常，但边缘的悬停高亮效果无法生效，尝试girafe_css的segment和line选项均未达到预期。

修正代码 #

library(ggplot2)
library(ggiraph)
library(tidygraph)
library(ggraph)

# 创建bull示例图
bull.graph <- create_notable("bull") %>% as_tbl_graph()

# 构建交互式网络图
ppiraph <- ggraph(bull.graph) + 
    geom_node_point() + 
    # 直接使用geom_edge_link_interactive实现边缘交互
    geom_edge_link_interactive(
        aes(tooltip = edge.id),
        alpha = 0.3, linewidth = 2
    )

# 生成交互式图形，指定path的悬停样式
girafe(
    ggobj = ppiraph,
    opts_hover(
        css = girafe_css(
            path = "stroke:blue; stroke-width:3px; opacity:1;"
        )
    )
)

关键修正点 #

1. 替换边缘绘制方式：原代码同时使用geom_edge_link和geom_segment_interactive导致两层边缘叠加，直接改用geom_edge_link_interactive，一步完成边缘绘制与交互绑定，避免图层遮挡问题。
2. 正确指定CSS选择器：geom_segment_interactive和geom_edge_link_interactive对应的SVG元素是path，而非segment或line，因此需要在girafe_css中设置path的样式才能生效。

内容的提问来源于stack exchange，提问作者Anna Hakobyan