未正确将节点度设置为节点属性 -R

Question

我正在处理一个我无法理解问题出在哪里的问题。 我将我的数据转换为图表。 我想将度数作为节点属性，但它错误地执行了它。 当我执行dat<- as.data.frame(degree)这给了我正确的答案，例如，具有最高 degree(10) 的 2 个节点的屏幕名称是“chrissmithonair”和“Philip_Huff”但是当我执行V(graph)$screen_name[degrees %in% max_degree_nodes]它产生错误的答案，这意味着度数被错误地设置为节点属性。

有人可以帮我吗？

sample of data that I am using:

https://www.dropbox.com/s/m1ysau37orv1vle/test.csv?dl=0

library(dplyr)
library("igraph")

df = read.csv(".../test.csv")
graph <- graph_from_data_frame(df %>% select("id","parent"),directed=F)
summary(graph)

graph <- graph%>%set_vertex_attr("id", value = df$id)
graph <- graph%>%set_vertex_attr("parent", value = df$parent)
graph <- graph%>%set_vertex_attr("screen_name", value = df$user.screen_name)

net<-asNetwork(graph)
net


degrees <- igraph::degree(graph) 
degree<-sort(degrees, decreasing = FALSE)
dat<- as.data.frame(degree). # it is correct

set_vertex_attr(
  graph,
  name = "degrees",
  value = igraph::degree(graph) 
)

max_degree_nodes <-10
V(graph)$screen_name[degrees %in% max_degree_nodes]. # it is wrong