R语言igraph包vertex.size参数报错及顶点缩放问题求助

你的stack.vtx数据存在两个核心问题：一是包含重复的顶点ID，二是缺失图中部分顶点的属性（比如E-6、T-5、XCP-8等）。这导致设置vertex.size时，属性向量长度（10）与实际顶点数（12）不匹配，触发报错，同时顶点大小混乱引发边和箭头显示异常。

1. 整理顶点属性数据 #

首先提取图中所有唯一顶点，为每个顶点分配正确的Freq和color。根据你“7个顶点大小为另外3个的2倍”的需求，先对原stack.vtx去重，再补充缺失顶点的属性。

2. 匹配顶点顺序 #

igraph的顶点顺序由V(stack_graph)$name决定，必须确保属性向量的顺序与顶点顺序完全一致。

完整可运行代码 #

library(igraph)
library(dplyr) # 若未安装，先运行 install.packages("dplyr")

# 原始数据
stack.edges <- data.frame(from = c("XTD-PRI", "XTD-PRI", "EVS-16", "EVS-16", "EVS-16", "J-4", "J-4", "Sigma", "Sigma", "T-1"), 
                          to = c("XTD-PRI", "E-6", "T-5", "XCP-8", "A-1", "P-1", "M-3", "Sigma", "MST-8", "EVS-16"))

stack.vtx <- data.frame(ID = c("XTD-PRI", "XTD-PRI", "EVS-16", "EVS-16", "EVS-16", "J-4", "J-4", "Sigma", "Sigma", "T-1"), 
                        Freq = c(1, 2, 2, 2, 1, 2, 2, 2, 2, 1), 
                        color = c("#F0027F", "#F0027F", "#7FC97F", "#7FC97F", "#7FC97F", "#F0027F", "#F0027F", "#FDC086", "#FDC086", "#7FC97F"))

# 创建图对象
stack_graph <- graph_from_data_frame(stack.edges, directed = TRUE)

# 获取图中所有顶点的名称
all_vertices <- V(stack_graph)$name

# 清理原顶点数据：去重，取每个ID的最大Freq和对应颜色
clean_vtx <- stack.vtx %>%
  group_by(ID) %>%
  summarize(Freq = max(Freq), color = first(color)) %>%
  ungroup()

# 补充缺失顶点的属性（默认Freq=1，颜色为灰色，可按需修改）
missing_vtx <- data.frame(
  ID = setdiff(all_vertices, clean_vtx$ID),
  Freq = 1,
  color = "#999999"
)

# 合并完整的顶点属性表
full_vtx <- bind_rows(clean_vtx, missing_vtx)

# 按照图中顶点的顺序排序属性表
full_vtx <- full_vtx[match(all_vertices, full_vtx$ID), ]

# 绘图（乘以10放大顶点大小，让差异更明显）
plot(stack_graph, 
     layout = layout_in_circle(stack_graph),
     edge.width = 1.5,
     edge.arrow.size = 0.3,
     vertex.shape = "circle", 
     vertex.color = full_vtx$color, 
     vertex.label.color = "black",
     vertex.size = full_vtx$Freq * 10)

关键说明 #

• 若不需要dplyr，可改用基础R函数去重和合并，比如用aggregate处理原stack.vtx。
• vertex.size = full_vtx$Freq * 10中的系数10可按需调整，目的是让大小差异更直观。
• 缺失顶点的Freq和颜色可根据实际需求修改，比如如果某些缺失顶点也需要Freq=2，直接在missing_vtx中设置即可。

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