使用igraph/ggnet2绘制水平树形图：复刻维基百科概率树图

我帮你调整代码，解决布局随机、标签位置不对和无边标签的问题，完美复刻维基百科风格的概率树形图：

步骤1：准备基础图结构与自定义标签 #

首先我们先创建二叉树，并自定义节点和边的标签（这里示例用概率树常见的层级标注，你可以根据需求修改成维基百科原图的内容）：

library(igraph)
library(GGally)

# 创建4层二叉树（共15个节点）
g <- graph.tree(n = 2^4 - 1, children = 2)

# 自定义节点标签（示例：根节点为S，子节点按层级命名，可替换为你需要的文本）
V(g)$label <- c("S", paste0("A", 1:2), paste0("B", 1:4), paste0("C", 1:8))

# 自定义边标签（示例：给每条边添加概率值，替换成维基百科原图的概率即可）
E(g)$label <- rep(c("0.5", "0.5"), length(E(g))/2)

步骤2：设置树形布局与可视化参数 #

接下来用layout_as_tree()指定标准树形布局，同时调整节点标签位置、大小等参数，让效果更贴近目标图：

# 生成树形布局：根节点在顶部，向下展开（flip.y=TRUE确保层级从上到下）
tree_layout <- layout_as_tree(g, root = 1, mode = "out", flip.y = TRUE)

# 绘制优化后的树形图
ggnet2(g,
       layout = tree_layout,  # 替换默认随机布局为树形布局
       label = TRUE,
       label.size = 3,
       label.position = "inside",  # 将标签置于节点圆形内部
       label.color = "black",  # 标签颜色，可按需调整
       node.size = 15,  # 调整节点大小以容纳内部标签
       edge.label = E(g)$label,  # 启用边标签显示
       edge.label.size = 3,  # 边标签大小适配
       color = "#e6f2ff",  # 节点填充色，贴近维基百科风格
       border.color = "black",  # 节点边框色
       edge.color = "black"  # 边的颜色
)

关键参数说明 #

• layout = tree_layout：用igraph的树形布局算法替代默认随机排布，确保节点严格按树的层级从上到下排列
• label.position = "inside"：把节点标签从默认的外部移到圆形内部，符合目标图样式
• edge.label = E(g)$label：启用边标签显示，需要先通过E(g)$label给每条边赋值对应内容
• node.size：根据标签长度调整节点大小，避免标签溢出圆形范围

你可以根据维基百科原图的具体样式，进一步调整节点颜色、边的粗细、标签字体等参数，比如修改edge.size、family（字体）等。

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