R语言visNetwork：边缘类型添加与箭头位置设置问题

一、修复箭头/端点样式设置无效的问题 #

你提到的arrows.from.type和arrows.to.type是旧版visNetwork的用法，当前版本已不再支持单独列配置，需要通过edges数据框的arrows列，用列表嵌套格式定义每个边两端的箭头/端点样式，以此实现高度灵活的定制。

修正后的示例代码：

library(visNetwork)

nodes <- data.frame(id = c("a","b","c","d"), label = c("a","b","c","d"))
edges <- data.frame(
  from = c("a","a","a"),
  to = c("b","c","d"),
  # 用I()包装列表，避免data.frame自动解析
  arrows = I(list(
    list(to = list(type = "arrow")),       # a→b：单向箭头
    list(to = list(type = "circle"), from = list(type = "circle")), # a↔c：双向圆形端点
    list(from = list(type = "circle"))     # a←d：单向圆形端点
  ))
)

visNetwork(nodes, edges)

二、三种节点关系的实现方案 #

关系A：子类别单向箭头

直接配置边的arrows为单向箭头，若无需自定义样式，也可使用简化写法arrows = "to"：

# 简化写法添加子类别关系边
edges <- rbind(edges, data.frame(from = "父节点", to = "子节点", arrows = "to"))

关系B：等价节点双向箭头/无箭头

• 双向箭头：配置arrows为双向箭头，简化写法arrows = "to;from"，或自定义两端样式：

  # 自定义双向箭头样式
  list(to = list(type = "arrow"), from = list(type = "arrow"))
  

• 无箭头等价关系：直接设置arrows = ""，或不指定arrows列，默认无箭头。

关系C：特殊样式节点

在nodes数据框中通过color、shape、size等列定义特殊样式，比如：

nodes <- data.frame(
  id = c("普通节点1","普通节点2","特殊节点"),
  label = c("普通节点1","普通节点2","特殊节点"),
  color = c("#97C2FC","#97C2FC","#FF4D4F"), # 特殊节点设为红色
  shape = c("ellipse","ellipse","diamond"), # 特殊节点用菱形
  size = c(20,20,30) # 特殊节点放大尺寸
)

三、负关系的通用绘图规范 #

网络图中负关系（如排斥、抑制、负相关）通常通过以下方式区分：

• 边缘样式：使用虚线（dashes = TRUE或自定义dashes = c(5,2)控制间隔）、红色边缘
• 箭头样式：使用叉形箭头（type = "bar"）或空心箭头
• 标注：在边的label列添加负号或明确说明

示例代码片段：

# 负关系边配置
data.frame(
  from = "节点X", to = "节点Y",
  arrows = I(list(list(to = list(type = "bar")))), # 叉形箭头
  color = "red", dashes = TRUE, # 红色虚线
  label = "负影响"
)

完整综合示例 #

library(visNetwork)

# 节点定义：包含普通、等价、特殊节点
nodes <- data.frame(
  id = c("父类别","子类别1","子类别2","等价A","等价B","特殊节点","负作用节点"),
  label = c("父类别","子类别1","子类别2","等价A","等价B","特殊节点","负作用节点"),
  color = c("#97C2FC","#97C2FC","#97C2FC","#52C41A","#52C41A","#FF4D4F","#FAAD14"),
  shape = c("ellipse","ellipse","ellipse","ellipse","ellipse","diamond","ellipse"),
  size = c(22,20,20,20,20,30,20)
)

# 边定义：覆盖三种关系+负关系
edges <- data.frame(
  from = c("父类别","父类别","等价A","等价B","特殊节点","负作用节点"),
  to = c("子类别1","子类别2","等价B","等价A","父类别","子类别1"),
  arrows = I(list(
    list(to = list(type = "arrow")), # 子类别单向箭头
    list(to = list(type = "arrow")),
    list(to = list(type = "arrow"), from = list(type = "arrow")), # 等价双向箭头
    list(to = list(type = "arrow"), from = list(type = "arrow")),
    list(to = list(type = "circle")), # 特殊节点关联的圆形端点
    list(to = list(type = "bar")) # 负关系叉形箭头
  )),
  color = c("#8C8C8C","#8C8C8C","#52C41A","#52C41A","#722ED1","#FF4D4F"),
  dashes = c(FALSE, FALSE, FALSE, FALSE, FALSE, TRUE),
  label = c("","","等价","等价","特殊关联","负影响")
)

# 绘制网络图，添加交互和固定布局
visNetwork(nodes, edges) %>%
  visOptions(highlightNearest = TRUE, nodesIdSelection = TRUE) %>%
  visLayout(randomSeed = 456)

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