绘制R中的转换图

install.packages("ggplot2")
install.packages("tidygraph")
install.packages("igraph")

library(ggplot2)
library(tidygraph)
library(igraph)

# 创建一个数据框，包含节点和边的信息
nodes <- data.frame(id = c("A", "B", "C", "D"),
                    label = c("Node A", "Node B", "Node C", "Node D"))
edges <- data.frame(from = c("A", "A", "B"),
                    to = c("B", "C", "D"))

# 创建一个空的ggplot对象
p <- ggplot() +
  # 添加节点
  geom_node_point(data = nodes, aes(x = id, y = id, label = label)) +
  # 添加边
  geom_edge_link(data = edges, aes(x = from, y = to)) +
  # 设置节点标签位置
  geom_node_text(data = nodes, aes(x = id, y = id, label = label),
                 nudge_x = 0.1, nudge_y = 0.1)

# 显示转换图
print(p)