R中圖形的邊緣着色

Question

我的程序基於.txt文件生成圖形。 例如，如果在文件中寫入了1,5和2,3，程序將創建連接第1和第5，第2和第3節點的圖形。 這是代碼：

library(igraph)
dat<-read.table("file.txt", header = F, sep = ",")
dat[,c(1,2)]
vertices<-as.vector(t(dat[,1:2]))
g<-graph(vertices,directed = F)
plot(g,layout=layout.circle)

我的問題是：如何根據某些條件進行邊緣着色？ 例如，如果程序第一次讀取文件中的3,5 ，我希望該邊緣為紅色，然后再次讀取3,5，我希望第二個邊緣為藍色，並且如果存在第三對3,5我希望它是黃色的。 這可能嗎？ 謝謝。

Answer 1

一種方法：

library(igraph)
df <- read.csv(text="from,to
1,2
1,2
1,3
1,2
1,3
1,2
1,2")
df$color <- with(df, ave(1:nrow(df), list(from, to), FUN=seq_along))
g <- graph_from_data_frame(df)
E(g)$color <- c("red", "blue", "yellow")[E(g)$color]
E(g)$color[is.na(E(g)$color)] <- "#CCCCCC"
plot(g)