根据列表中的存在为 igraph 中的顶点赋予属性？

如何解决根据列表中的存在为 igraph 中的顶点赋予属性？

我有中等大小的图表 (84)，其中包含不同的参与者。现在，我想为列表中的所有演员分配一个属性。所有演员 ID 都是字符串，列表是演员姓名列表，例如“鲍勃”。

这是我尝试过的：

#write a "not in" function:
'%!in%' <- function(x,y)!('%in%'(x,y))
#assign attributes:
for(i in glist){V(i)$attr <- NA}
for(i in glist){V(i)$attr[V(i)$name %in% alist] <- 1}
for(i in glist){V(i)$attr[V(i)$name %!in% alist] <- 0}

然而，当我调用 V(sb2000b)$attr 时，它告诉我“NULL”，所以一定是出了什么问题。

代表例子：

graph1 <- graph( c("Arielle","Aladdin","Bob","Simba")
graph2 <- graph( c("Arielle","Mufasa","Fred","Vaiana")
glist <- c("graph1","graph2")
alist <- c("Bob","Fred")