R语言visNetwork包中，设置条件色后如何修改选中边的颜色？

问题原因 #

当你在edges数据框中直接设置color列为单一颜色字符串时，这个设置会覆盖visEdges()中的全局颜色配置，且单一颜色值仅定义了边的初始显示颜色，没有包含高亮、悬停等交互状态的颜色规则，因此触发交互时只有边的宽度变化，颜色保持初始值不变。

解决方案 #

需要将每条边的color属性转换为列表结构，在列表中同时定义基础颜色、高亮颜色和悬停颜色，这样既能保留初始的条件颜色设置，又能让交互状态的颜色规则生效。

修改后的完整代码 #

library(visNetwork)

# 创建示例数据
nodes <- data.frame(id = 1:4, label = c("Node 1", "Node 2", "Node 3", "Node 4"))
edges <- data.frame(from = c(1, 1, 1, 2, 3), to = c(2, 3, 4, 3, 4), value = c(10, 20, 30, 40, 50))

# 将边的color转换为包含交互状态的列表结构
edges$color <- mapply(function(base_color) {
  list(color = base_color, 
       highlight = "yellow", 
       hover = "yellow")
}, ifelse(edges$value <= 20, "blue", "red"))

# 创建可视化网络
visNetwork(nodes, edges) |>  
  visNodes(color = list(background = "skyblue", border = "black", highlight = "yellow",
                        hover = "yellow")) |> 
  visEdges(smooth = FALSE) |>  # 无需再重复设置color的全局规则
  visOptions(highlightNearest = list(enabled = TRUE, hover = TRUE),
             nodesIdSelection = TRUE)

说明 #

• 使用mapply遍历每条边的基础颜色，生成包含color（初始色）、highlight（选中/高亮色）、hover（悬停色）的列表，替代原来的单一颜色字符串。
• 移除visEdges()中重复的color全局设置，避免冲突。
• 此时选中、悬停或通过highlightNearest高亮边时，边会同时变粗并切换为设置的黄色。

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