R语言构建网络时顶点颜色赋值报错：替换项数量与长度不匹配

使用R语言构建网络时，输入的.csv文件包含多列数据，第一列是边的起始顶点From_Interviewee，第二列是目标顶点To_Actor。由于起始顶点可能对应多条边，第一列存在大量重复值，但网络中每个顶点仅显示一次（示例数据如下）：

尝试为两列顶点添加颜色时，代码无法识别数据中的重复项，导致顶点颜色赋值出现警告：

Warning message: In vattrs[[name]][index] <- value : number of items to replace is not a multiple of replacement length

相关代码如下：

# Read data file
actor_data <- read.csv(file.choose(), sep=";", header=T, na.strings = "NA")
actor_data_df <- data.frame(actor_data$From_Interviewee, actor_data$To_Actor, actor_data$Link_Weight, actor_data$Link_Category, actor_data$Link_Color, actor_data$Link_Directionality, actor_data$Interviewee_Role, actor_data$Interviewee_Color, actor_data$Actor_Role, actor_data$Actor_Color, actor_data$Actor_Category, actor_data$ID)

# Create subset to play around with data
actor_data_df_AR <- actor_data_df %>% filter(actor_data.From_Interviewee %in% c("Anthony_Recco"))

# Create undirected network
actor_net <- graph_from_data_frame(actor_data_df_AR, directed=FALSE)
plot(actor_net)

# Add edge colors
colors_e <- actor_data_df_AR$actor_data.Link_Color
E(actor_net)$color <- colors_e
plot(actor_net)

# Add edge weights
plot(actor_net,
     edge.width=actor_data_df_AR$actor_data.Link_Weight)

# Add vertice colors
colors_v <- cbind(actor_data_df_AR$actor_data.Interviewee_Color, actor_data_df_AR$actor_data.Actor_Color)
V(actor_net)$color <- colors_v
plot(actor_net,
edge.width=actor_data_df_AR$actor_data.Link_Weight)

核心问题：赋值顶点颜色的向量长度与网络中唯一顶点数量不匹配，导致颜色赋值不准确。

问题根源在于直接用cbind合并颜色列得到的是矩阵，且包含重复顶点的颜色条目，与网络中唯一顶点的数量不匹配。可通过构建顶点-颜色映射表来解决：

1. 构建唯一顶点的颜色映射 #

从子集数据中提取所有顶点，并为每个唯一顶点绑定对应颜色，去重后得到映射表：

# 创建顶点-颜色映射数据框，去重保留每个顶点的唯一颜色
vertex_color_map <- data.frame(
  vertex = c(actor_data_df_AR$actor_data.From_Interviewee, actor_data_df_AR$actor_data.To_Actor),
  color = c(actor_data_df_AR$actor_data.Interviewee_Color, actor_data_df_AR$actor_data.Actor_Color)
) %>% 
  distinct(vertex, .keep_all = TRUE)

2. 为网络顶点匹配颜色 #

根据网络顶点的名称顺序，从映射表中匹配对应颜色，确保向量长度与顶点数量完全一致：

# 按网络顶点顺序赋值颜色
V(actor_net)$color <- vertex_color_map$color[match(V(actor_net)$name, vertex_color_map$vertex)]

3. 完整修改后的代码片段 #

替换原代码中顶点颜色赋值部分，完整流程如下：

# 读取数据与创建子集的代码保持不变...

# Create undirected network
actor_net <- graph_from_data_frame(actor_data_df_AR, directed=FALSE)

# Add edge colors
colors_e <- actor_data_df_AR$actor_data.Link_Color
E(actor_net)$color <- colors_e

# Add edge weights & vertex colors
# 构建顶点颜色映射
vertex_color_map <- data.frame(
  vertex = c(actor_data_df_AR$actor_data.From_Interviewee, actor_data_df_AR$actor_data.To_Actor),
  color = c(actor_data_df_AR$actor_data.Interviewee_Color, actor_data_df_AR$actor_data.Actor_Color)
) %>% 
  distinct(vertex, .keep_all = TRUE)

# 匹配并赋值顶点颜色
V(actor_net)$color <- vertex_color_map$color[match(V(actor_net)$name, vertex_color_map$vertex)]

# 绘制最终网络
plot(actor_net, edge.width=actor_data_df_AR$actor_data.Link_Weight)

关键说明 #

• distinct(vertex, .keep_all = TRUE)：确保每个顶点仅保留一条颜色记录，解决重复顶点的颜色冲突。
• match()函数：按照网络中顶点的实际顺序，从映射表中精准匹配颜色，保证颜色向量长度与顶点数量完全匹配，彻底消除警告。

内容的提问来源于stack exchange，提问作者unicus.sapiens