Set curved
to FALSE
, and width
to the number of multiple edges using count.multiple
, see the details in the manual: http://igraph.org/r/doc/plot.common.html
E(g)$curved <- FALSE
E(g)$width <- count.multiple(g)
plot(g, layout=layout.circle, vertex.label=c("a","b","c","d","e"))