R中图的边着色

我的程序基于.txt文件生成一个图形。例如，如果在文件中写入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)

库（igraph）
dat一种方法：

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)

库（igraph）
df如果您提供了一个示例输入，将更容易提供帮助。