R语言如何基于现有dataframe构建图分析专用边数据框

基础规则梳理 #

• 原始数据集字段：title、text、type、id
• 目标输出字段：from（边起始节点）、to（边终止节点）、relation（关系类型）、description（关系描述）
• 核心约束：title取值为B的记录构成完全独立的关系网络，不能和A、C分组的网络出现跨连边

核心转换逻辑 #

你之前用的单层ifelse只能处理二分支判断，面对多规则映射+网络隔离的需求，建议用case_when做多条件分支，同时给B网络的节点加统一前缀，避免和A/C组的同名节点产生错误连边。
完整实现代码如下：

library(dplyr)
library(igraph)
library(ggraph)

graph_edge_df <- df %>%
  # 先标记网络分组，隔离B组和A/C组
  mutate(net_group = ifelse(title == "B", "B", "AC")) %>%
  mutate(
    # 起始节点映射：可根据你数据集type的实际取值替换分支规则
    from = case_when(
      net_group == "B" ~ paste0("B_node_", id),
      type == "source_node" ~ as.character(id),
      type == "source_title" ~ as.character(title),
      TRUE ~ as.character(id)
    ),
    # 终止节点映射：B组节点加专属前缀，杜绝跨网络连边
    to = case_when(
      net_group == "B" ~ paste0("B_target_", text),
      type == "attr_node" ~ as.character(text),
      type == "target_id" ~ as.character(id),
      TRUE ~ as.character(text)
    ),
    # 关系类型直接映射type字段，B组关系可加前缀区分
    relation = case_when(
      net_group == "B" ~ paste0("B_", type),
      TRUE ~ as.character(type)
    ),
    # 关系描述直接取text字段内容
    description = as.character(text)
  ) %>%
  # 过滤空节点导致的无效边
  filter(nzchar(from), nzchar(to)) %>%
  # 保留目标要求的4个字段
  select(from, to, relation, description)

注意：代码中case_when里的type判断条件（比如type == "source_node"）是示例写法，你可以替换成自己数据集里type字段的实际枚举值，调整节点映射规则即可。

网络图可视化示例 #

转换完成的边数据框可以直接转成igraph对象绘制网络图：

# 转为igraph网络对象
net <- graph_from_data_frame(graph_edge_df, directed = T)
# 给节点添加分组属性
V(net)$group <- ifelse(grepl("^B_", V(net)$name), "B独立网络", "A/C共通网络")

# 绘制可视化网络图
ggraph(net, layout = "fr") +
  geom_edge_link(arrow = arrow(length = unit(2, "mm")), alpha = 0.5, aes(label = relation)) +
  geom_node_point(aes(color = group), size = 3) +
  geom_node_text(aes(label = name), repel = T, size = 2.8) +
  theme_void()

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