Zeige Kantenattribute als Label mit Sigma

Question

Ich verwende igigraph in R für Netzwerkanalyse. Ich möchte ein Kantenattribut für jede Linie im Diagramm anzeigen. Ein Beispiel ist unten

df <- data.frame(a = c(0,1,2,3,4),b = c(3,4,5,6,7)) 
nod <- data.frame(node = c(0:7),wt = c(1:8)) 
pg <- graph_from_data_frame(d = df, vertices = nod,directed = F) 
plot(pg) 

I der Wert der „wt“ -Funktion soll zwischen jedem Knoten auf der Linie dargestellt wird, oder vorzugsweise, in einem kleinen Zwischenraum, wo die Zeilenumbrüche.

Ist es möglich, dies zu erreichen?

Answer 1

Mit dem Parameter edge.label Markierungen der Kanten zuweisen, habe ich - wahrscheinlich falsch - Nicken $ wt. Natürlich könnten Sie andere Beschriftungen zuweisen.

Sie können den folgenden Code verwenden:

# load the package 
library(igraph) 

# your code 
df <- data.frame(a = c(0,1,2,3,4),b = c(3,4,5,6,7)) 
nod <- data.frame(node = c(0:7),wt = c(1:8)) 
pg <- graph_from_data_frame(d = df, vertices = nod,directed = F) 

# plot function with edge.label added 
plot(pg, edge.label = nod$wt) 

Bitte, lassen Sie mich wissen, ob dies ist, was Sie wollen.