两个简单图的多个图？

Question

如何从R i图中的两个或多个简单图中得到一个多图？

G <- graph_from_literal(1-2:3-4-5:6)
E(G)$at <- rep.int("a",6)
G2 <- graph_from_literal(6-7-5-4)
E(G2)$at <- c("b","b","b")
G3 <- graph.union(G, G2)
E(G3)$at_1
E(G3)$at_2
is.simple(G3)
plot(G3)

请注意，这两个图在顶点4和5之间都有一个边，因此我希望得到一个多图，而不是一个简单的图。还有另一种选择，而不是graph.union？谢谢

Answer 1

在此，对Szabolcs的建议进行阐述。

DF3 <- rbind(as_data_frame(G), as_data_frame(G2))
G3b  <- graph_from_data_frame(DF3, directed=FALSE)
dev.new()
plot(G3b, edge.color=ifelse(E(G3b)$at == "a", "black", "red"), edge.label=E(G3b)$at)