r-将属性(性别)添加到边缘列表中的顶点

Question

我有一个生殖对的边缘列表，如下所示：

male_ID=c(1,2,3,4,5), female_ID=c(6,7,8,9,10), a=cbind(male_ID, female_ID)

使用Igraph，我从数据中生成了一张图，绘制并对完整的df:进行了一些分析

g <- graph_from_data_frame(a)

我的问题是，我现在可以根据个人在边缘列表中列出的列，为其性别添加一个属性(到颜色顶点(吗？

Answer 1

您可以为图形对象分配组标签。

为了创建群体向量"性"，你的数据框架表明你有和女性一样多的男性。graph_from_data_frame()将mal_ID和female_ID列堆叠在一起，您可以使用igraph::V(g)进行检查。因此，您可以从该信息中导出组向量：

male_ID=c(1,2,3,4,5); female_ID=c(6,7,8,9,10); a=cbind(male_ID, female_ID)
#create graph object from dataframe
g <- igraph::graph_from_data_frame(a)
#investigate structure g
igraph::V(g)
#[1] 1  2  3  4  5  6  7  8  9  10
# create sex group vector
sex <- c(replicate(length(male_ID), "Male"), replicate(length(female_ID), "Female"))
#Check group values
print(igraph::V(g)$group)
# NULL
#assign groups
igraph::V(g)$group <- sex
#Check group values again
print(igraph::V(g)$group)
#[1] "Male"   "Male"   "Male"   "Male"   "Male"   "Female" "Female" "Female" "Female" "Female"
# I use visnetwork to visualise 
vis_g <- visNetwork::toVisNetworkData(g, idToLabel = TRUE) 
visNetwork::visNetwork(
nodes = vis_g$nodes,
edges = vis_g$edges
)