Присвойте веса краям

Question

Я сделал график из этого текстового файла Я пытаюсь присвоить веса краям по сходству jaccard

 dat<-read.delim(file.choose(),header = F)
> g<-graph_from_data_frame(dat,directed = F)
> g<-simplify(g)
> sim<-similarity.jaccard(g)
> el<-get.edgelist(g)
> E(g)$weight <- sim[el]

Но отправляет эти ошибки:

*Warning message:
In length(eattrs[[name]]) <- ec : length of NULL cannot be changed*

или

*Error in sim[el] : subscript out of bounds*

Почему?

Answer 1

Ваш вызов get.edgelist возвращает идентификаторы вершин в виде символов, но вы хотите использовать их в качестве числовой матрицы для индексации баллов по jaccard

el<-get.edgelist(g)
el<-apply(el, 2, as.numeric) #convert to numeric matrix
E(g)$weight <- sim[el]