在R中合并有向与无向边列表的技术求助

嘿，我来帮你搞定这个问题！看起来你是在用igraph处理网络合并的事儿对吧？我之前也踩过as.undirected的坑——默认设置会悄悄合并重复边，导致你丢了部分观测数据，难怪拿不到完整列表来合并。下面是一步步的解决方案，确保你能保留所有原始边的信息：

1. 提取两个网络的完整边数据（含所有属性） #

首先假设你用的是igraph包（这是R里最常用的网络分析工具），我们要用as_data_frame()来导出完整的边列表，这个函数会把所有边属性都原封不动保留下来：

library(igraph)

# 导出无向图的边数据（g_undir 是你的无向网络对象）
edges_undir <- as_data_frame(g_undir, what = "edges")

# 把有向图转成无向结构，但保留所有原始边观测
# 关键参数 mode="each"：每条有向边 A->B 都会转成无向边 A-B，不合并重复边
# edge.attr.comb="first"：如果有重复边，保留第一条的属性（你可以换成 sum/mean/list 按需聚合）
g_dir_converted <- as.undirected(g_dir, mode = "each", edge.attr.comb = "first")
edges_dir_converted <- as_data_frame(g_dir_converted, what = "edges")

2. 合并两个边列表 #

现在你有了两个完整的边数据框，直接用rbind()合并就行，所有观测都会保留：

# 合并无向图和转换后有向图的边列表
combined_edges <- rbind(edges_undir, edges_dir_converted)

如果你的需求是去掉重复边（比如两个图里都有同一条无向边），可以在这一步之后用distinct()（dplyr包）或者手动去重，完全看你的分析需求。

3. 重新构建合并后的无向网络 #

最后用合并好的边列表创建新的无向图，同时可以保留两个原始图的节点属性：

# 提取并合并两个图的节点数据（去重）
nodes_undir <- as_data_frame(g_undir, what = "vertices")
nodes_dir <- as_data_frame(g_dir, what = "vertices")
combined_nodes <- unique(rbind(nodes_undir, nodes_dir))

# 构建最终的无向网络
combined_undir_g <- graph_from_data_frame(
  d = combined_edges,
  vertices = combined_nodes,
  directed = FALSE
)

为什么之前的方法失效了？ #

你提到用get.edge.attribute拿不到完整观测，大概率是因为默认的as.undirected(mode="collapse")会自动合并重复的无向边，把多条观测合并成一条，导致原始的边数据丢失。而mode="each"会保留所有原始边的结构，确保你能拿到完整的观测列表来合并。

如果之后需要简化网络（比如合并重复边并聚合属性），可以用simplify()函数：

# 示例：合并重复边，把权重属性相加，其他属性保留第一条
combined_g_simplified <- simplify(combined_undir_g, edge.attr.comb = list(weight = "sum", "first"))

这样操作下来，你就能得到一个包含两个原始网络所有边信息的无向网络啦！

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