在mathematica中合并图形时保留顶点和边缘标签

Question

我正在寻找包含标记为“9”的顶点的两个图形的连通分量。从下面的代码中，我确实得到了我想要的东西，但它缺少我放在原始图表中的标签！

degree = 1000;
WeaklyConnectedGraphComponents[
 GraphUnion[
  Graph[(# \[DirectedEdge] Power[#, 2]) & /@ (Range[degree]*9), 
   EdgeLabels -> 2, VertexLabels -> "Name"], 
  Graph[(# \[DirectedEdge] Power[#, 3]) & /@ (Range[degree]*9), 
   EdgeLabels -> 3, VertexLabels -> "Name"], 
  VertexLabels -> "Name"], 9, VertexLabels -> "Name"]

这部分：

Graph[(# \[DirectedEdge] Power[#, 2]) & /@ (Range[degree]*9), 
   EdgeLabels -> 2, VertexLabels -> "Name"]

给我一​​个图表，所有边标记为“2”

这部分：

Graph[(# \[DirectedEdge] Power[#, 3]) & /@ (Range[degree]*9), 
   EdgeLabels -> 3, VertexLabels -> "Name"]

给我一​​个标有“3”的所有边的图表。

但是最后连接的组件没有那些边缘标签，这意味着我很难分辨它来自哪个图形。有没有办法在保留原始标签的同时合并这些图形？