基于时间轴的有向网络图可视化实现求助（R语言ggraph）

我需要创建一个X轴固定为时间维度的有向网络可视化图表，现有数据如下：

节点数据 #

边数据 #

目标可视化样式：节点按对应日期在X轴上排列，Y轴用于区分同一时间点的不同节点，有向边连接对应节点并带有箭头指向终点。

我尝试用ggraph包开发，但无法将X轴与日期绑定，当前代码及效果如下：

library(tidyverse)
library(tidygraph)
library(ggraph)

nodes <- tibble(id=1:4,label=letters[1:4], date=as.Date(c("2022-02-01", 
                                                          "2022-03-13", 
                                                          "2022-03-22", 
                                                          "2022-04-20")))
edges <- tibble(from = c(1L, 3L, 3L),
                  to = c(2L, 1L, 4L))

graph <- tbl_graph(nodes = nodes, edges = edges, directed=TRUE)

ggraph(graph) + 
  geom_edge_link(end_cap = circle(3, 'mm'),
                 arrow = arrow(length = unit(4, 'mm'))) +  
  geom_node_label(aes(label = label))

解决方案 #

核心思路是使用ggraph的manual布局，直接将节点的X坐标绑定到日期字段，同时手动设置Y坐标避免节点重叠，具体代码如下：

library(tidyverse)
library(tidygraph)
library(ggraph)

nodes <- tibble(id=1:4,label=letters[1:4], date=as.Date(c("2022-02-01", 
                                                          "2022-03-13", 
                                                          "2022-03-22", 
                                                          "2022-04-20")),
                # 手动设置Y坐标，避免同一X轴位置的节点重叠
                y = c(1, 2, 1, 2))
edges <- tibble(from = c(1L, 3L, 3L),
                  to = c(2L, 1L, 4L))

graph <- tbl_graph(nodes = nodes, edges = edges, directed=TRUE)

ggraph(graph, layout = "manual", x = date, y = y) + 
  # 设置X轴日期显示格式与间隔
  scale_x_date(date_labels = "%Y-%m-%d", date_breaks = "1 month") +
  geom_edge_link(end_cap = circle(3, 'mm'),
                 arrow = arrow(length = unit(4, 'mm')),
                 color = "#666666") +  
  geom_node_label(aes(label = label), fill = "white") +
  # 添加坐标轴标签
  labs(x = "日期", y = "") +
  # 优化主题，隐藏Y轴冗余元素
  theme_minimal() +
  theme(axis.text.y = element_blank(),
        axis.ticks.y = element_blank())

关键修改说明 #

1. 手动布局绑定时间轴：通过layout = "manual"指定布局，直接将x参数绑定到节点的date字段，实现X轴的时间维度映射
2. Y坐标设置：给节点添加y列，手动分配垂直位置，避免同一日期的节点重叠（若有多个节点在同一日期，可分配不同Y值）
3. 日期坐标轴优化：用scale_x_date设置日期的显示格式和间隔，让X轴标签更清晰
4. 主题调整：移除Y轴的刻度和标签，让图表更贴合目标样式

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