Wie kann ich Self-Loops einfärben?

Question

Ich versuche, nur Selbst-Schleife Ränder in meinem iigraph Netz zu färben. Hier ist das Beispiel meiner Daten. Hier

head(network.txt) 
From To 
A A 
A B 
A C 
A D 
B A 
B B 
B C 
B D 
C A 
C B 
C C 
C D 
D A 
D B 
D C 
D D 

ist der Netzwerkcode

df=read.table("network.txt", header = TRUE) 

nodes=unique(df$From) 

g=graph_from_data_frame(df) 

plot(g, edge.arrow.size=0.2, vertex.color="gold", vertex.size=15, vertex.frame.color="gray", vertex.label.color="black", vertex.label.cex 
    =0.5, vertex.label.dist=0, edge.curved=0.2, edge.color="black", main="Adult CRC network", layout=layout_in_circle) 

und

> head(E(g)) 
+ 6/16 edges from ea19d0a (vertex names): 
[1] A->A A->B A->C A->D B->A B->B 

Here is the output network

Auch ist es trotzdem, um die Schlaufen zu halten außerhalb des Netzwerks?

Answer 1

Man könnte es wie folgt tun:

library(igraph) 
g <- make_full_graph(10, loops = TRUE) 
plot(g, edge.color = ifelse(is.loop(g), "red", "grey"))