Ao rodar o código abaixo, não obtenho a representação gráfica esperada. Apesar de A estar ligado a C com valor 90.16 no plot a ligação A – C apresenta o valor 80. Alguém consegue ajudar?
library(igraph)
df1 <- data.frame(origem=c( "A", "B", "B"),
destino=c("C", "A", "B"),
valor=c(90.16,80,100))
grafo11 <- graph_from_data_frame(df1, directed = FALSE)
plot(simplify(grafo11, remove.loops = TRUE, remove.multiple = TRUE),
vertex.color = c("gold","skyblue")[1+(V(grafo11)$name=="B")],
edge.label = E(grafo11)$valor)