如何用ggplot绘制igraph图：保留核心节点标签并移除节点边框

首先加载所需的R包：

library(igraph)
library(ggraph)
library(ggplot2)

接着处理你的igraph对象，提取节点属性并创建自定义标签列：

# 提取所有节点名称
vertex_names <- V(df)$name
# 定义需要保留标签的核心节点（根据图结构，这里是"Bestman"和"Tetra"）
core_nodes <- c("Bestman", "Tetra")
# 生成标签：核心节点显示名称，其余节点设为NA（不显示标签）
vertex_labels <- ifelse(vertex_names %in% core_nodes, vertex_names, NA)

最后用ggraph绘图，实现需求：

ggraph(df, layout = "kk") + # 采用Kamada-Kawai布局，可替换为"fr"等其他布局
  geom_edge_link(color = "gray50") + # 设置边的颜色
  geom_node_point(size = 5, color = "#619CFF", shape = 16, stroke = 0) + # stroke=0移除节点边框
  geom_node_text(aes(label = vertex_labels), vjust = 1.5, size = 4) + # 仅渲染核心节点的标签
  theme_graph() + # 清除ggplot默认的坐标轴、背景等元素
  labs(title = "核心节点保留标签的网络")

关键细节说明： #

• stroke = 0：通过该参数彻底移除节点的边框轮廓
• vertex_labels：利用条件判断控制标签显示，非核心节点标签设为NA后会自动隐藏
• ggraph是基于ggplot2的网络绘图扩展工具，完全适配ggplot的语法逻辑

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