求助：基于R语言igraph包从两列数据构建带权重边的网络

完全可行。由于你的数据没有节点间的直接关联，我们可以构建星型网络——引入一个虚拟中心节点，让所有国家节点都与它相连，这样每条边就能对应一个国家的Counts值，进而通过Counts控制边的粗细。

实现步骤与代码 #

1. 构建边列表
   先创建包含中心节点的边数据框，每条边对应一个国家，同时绑定Counts列：

# 加载igraph包
library(igraph)

# 你的原始数据
data <- data.frame(Country = c("Argentina", "Bolivia", "Chile", "France", "Guam", "US"), 
                   Counts = c(2,8,1,5,3,35))

# 构建边列表：虚拟中心节点连接所有国家
edges <- data.frame(
  from = rep("Center", nrow(data)),  # 虚拟中心节点
  to = data$Country,
  weight = data$Counts  # 用Counts作为边的权重
)

2. 创建igraph网络对象

g <- graph_from_data_frame(edges, directed = FALSE)

3. 可视化设置与绘图
   调整边宽、节点样式，贴近你参考图的效果：

plot(g,
     # 边宽与Counts成正比，可通过系数调整视觉效果
     edge.width = E(g)$weight * 0.3,
     # 节点大小：隐藏中心节点，国家节点可根据Counts调整
     vertex.size = ifelse(V(g)$name == "Center", 0, E(g)$weight * 1.2),
     # 节点标签：只显示国家名称，隐藏中心节点标签
     vertex.label = ifelse(V(g)$name == "Center", "", V(g)$name),
     # 边的颜色统一（可选）
     edge.color = "#6366f1",
     # 星型布局，中心节点位于中间
     layout = layout_as_star(g, center = which(V(g)$name == "Center"))
)

关键说明 #

• 虚拟中心节点的作用是为每个国家提供对应的边，以此实现Counts对边粗细的控制；若不需要显示中心节点，可将其大小设为0、标签留空。
• edge.width的系数（示例中的0.3）可根据视觉需求调整，让边的粗细更符合预期。
• 也可以根据Counts调整国家节点的大小，进一步强化数据的可视化表达。

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