为visNetwork创建节点和边表

library(visNetwork)

# 创建节点表
nodes <- data.frame(
  id = c(1, 2, 3),  # 节点ID
  label = c("Node 1", "Node 2", "Node 3"),  # 节点标签
  color = c("red", "blue", "green"),  # 节点颜色
  shape = c("circle", "square", "triangle")  # 节点形状
)

# 创建边表
edges <- data.frame(
  from = c(1, 1, 2),  # 起始节点ID
  to = c(2, 3, 3),  # 目标节点ID
  label = c("Edge 1", "Edge 2", "Edge 3"),  # 边标签
  color = c("black", "gray", "brown"),  # 边颜色
  width = c(1, 2, 3)  # 边宽度
)

# 创建visNetwork对象
network <- visNetwork(nodes, edges)

# 显示网络可视化图
print(network)