R语言使用igraph绘制树形图时如何按层级添加指定日期文本标注

解决方案 #

该需求可以直接通过igraph配合基础绘图函数实现，核心思路是先提取树状布局每层的坐标范围，计算层中间位置后添加文本标注即可，完整实现代码如下：

library(igraph)

# 构造带date字段的数据集
DF <- data.frame(in. = 1:6, out. = c(3, 3, 5, 5, 7, 7), 
                 date = c('2019-11-01', '2019-11-01', '2020-01-01',  '2020-01-01', '2020-12-31', '2020-12-31')) 

# 构建图对象、生成树布局（y轴反转符合常规从上到下的树结构）
g <- graph_from_edgelist(as.matrix(DF[2:1]))
lay <- layout_as_tree(g)
lay_rev <- lay %*% diag(c(1, -1))
lay_df <- as.data.frame(lay_rev)
colnames(lay_df) <- c("x", "y")

# 关联节点与对应的date、按层聚合计算标注位置
node_date <- data.frame(node = as.numeric(V(g)$name))
node_date <- merge(node_date, DF[, c("in.", "date")], by.x = "node", by.y = "in.", all.x = TRUE)
lay_df$date <- node_date$date

# 计算每层标注的坐标：x取该层所有节点x的中位数（刚好是两个节点中间），y取该层的y值
anno_pos <- aggregate(. ~ y + date, data = lay_df[!is.na(lay_df$date), ], FUN = median)

# 绘图
plot(as.undirected(g), layout = lay_rev)
# 添加层标注，可根据需要调整偏移量、颜色、字号等参数
text(anno_pos$x, anno_pos$y + 0.1, labels = anno_pos$date, col = "#2c3e50", cex = 0.9)

实现说明 #

• layout_as_tree生成的树布局中，同一层级的节点y坐标完全相同，因此可以通过y值分组快速识别不同层级
• 上述代码默认将日期标注在对应层两个节点的中间上方，如果你想要放在侧边，只需把text函数的第一个参数改为anno_pos$x + 0.3即可
• 如果后续数据集节点数量发生变化，只要保证节点和date的关联逻辑正确，标注可以自动适配位置，不需要手动调整坐标

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