如何在ggplot2中做关联图？

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

# 创建顶点和边的数据框
vertices <- data.frame(
  name = c("A", "B", "C", "D"),
  group = c(1, 2, 1, 2)
)

edges <- data.frame(
  from = c("A", "A", "B", "B", "C", "D"),
  to = c("B", "C", "C", "D", "D", "A"),
  weight = c(1, 2, 3, 4, 5, 6)
)

# 使用igraph创建图
g <- graph_from_data_frame(edges, vertices = vertices, directed = TRUE)

# 将igraph对象转换为数据框
edge_df <- as_data_frame(g, what = "edges")
vertex_df <- as_data_frame(g, what = "vertices")

# 绘制节点
p_nodes <- ggplot(vertex_df, aes(x = 0, y = 0, label = name)) +
  geom_text(size = 4) +
  theme_void()

# 绘制边
p_edges <- ggplot(edge_df, aes(x = x, y = y, xend = xend, yend = yend, alpha = weight)) +
  geom_segment(size = 1) +
  scale_alpha_continuous(range = c(0.2, 1)) +
  theme_void()

# 组合节点和边
library(gridExtra)
grid.arrange(p_nodes, p_edges, ncol = 2)

install.packages("ggalluvial")
library(ggalluvial)

# 创建示例数据
data <- data.frame(
  from = c("A", "A", "B", "B", "C"),
  to = c("X", "Y", "X", "Y", "Y"),
  weight = c(10, 20, 30, 40, 50)
)

# 绘制桑基图
ggplot(data, aes(y = weight, axis1 = from, axis2 = to)) +
  geom_alluvium(aes(fill = from), width = 1/12) +
  geom_stratum(width = 1/12, fill = "black") +
  geom_text(stat = "stratum", label.strata = TRUE, size = 3) +
  scale_x_discrete(limits = c("from", "to"), expand = c(.05, .05)) +
  scale_fill_brewer(type = "qual", palette = "Set2") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, hjust = 1))