Bonjour à tous,

Comme indiqué dans le titre, j'essaie de colorier les nœuds de mon graphe en fonction de leur centralité d'intermédiarité (le graphe doit être fait en directed force) et suis bloqué...
Voici où j'en suis pour le moment :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
install.packages("igraph")
library(igraph)
 
datagraph <- read.table("C:/Users/loisv/Desktop/Fichier_test.txt", header=TRUE, sep="\t")
graphe=graph_from_data_frame(datagraph, directed = FALSE, vertices = NULL)
plot(graphe)
 
force = layout_with_fr(graphe)
plot(graphe,layout=force,vertex.color=V(graphe)$degree)
Pouvez vous m'aider svp ?

Merci d'avance