在 Mathematica 中创建具有不同颜色边的图形

我想创建一个图（图论），其中某些边具有与其他边不同的颜色，这将用于突出显示图中从一个顶点到另一个顶点的路径。

以下是一些具有不同颜色边缘的示例http://demonstrations.wolfram.com/AGraphTheoryInterpretationOfTheSumOfTheFirstNIntegers/ http://demonstrations.wolfram.com/AGraphTheoryInterpretationOfTheSumOfTheFirstNIntegers/ and http://demonstrations.wolfram.com/Ramsey336/ http://demonstrations.wolfram.com/Ramsey336/。我查看了这些的源代码，但这些解决方案似乎很复杂。我需要一个简单的例子来工作。我认为我需要使用 EdgeRenderingFunction 作为选项之一GraphPlot.

另外根据边缘渲染函数 http://reference.wolfram.com/mathematica/ref/EdgeRenderingFunction.html文档在“更多 信息”部分说：

这看起来很有用，但不幸的是没有可以尝试的编码示例。

从字面上看，我尝试过类似的事情

GraphPlot[{1 -> 2, 2 -> 3, 3 -> 4, 4 -> 1, 2 -> 4, 4 -> 5, 4 -> 6}, 顶点标签 -> True,
EdgeRenderingFunction -> g[{1, 2}, {1, 2}，红色]]

但那是行不通的。这需要比这更聪明的东西。

下面的示例说明了如何自动突出显示图形中的特定路径。

这是一个愚蠢的图，由一系列边缘规则指定：

edges = Table[i -> Mod[1 + i^2, 10], {i, 0, 9}];
GraphPlot[edges, VertexLabeling -> True]

这是我们要强调的图表路径。

path = {0, 1, 2, 5, 6, 7, 0};

让我们将路径划分为边缘，考虑到我们想要突出显示边缘而与其方向无关。

edgesToHighlight = Partition[path, 2, 1];
edgesToHighlight = Join[edgesToHighlight,
    Reverse /@ edgesToHighlight];

我们写一个EdgeRenderingFunction以两种样式之一渲染边缘，具体取决于它是否在我们的列表中。

erf[pts_, edge_, ___] := If[MemberQ[edgesToHighlight, edge],
    {Thick, Black, Arrow[pts, 0.1]}, {Darker[Red], Line[pts]}];

最后，我们显示结果。

GraphPlot[edges, EdgeRenderingFunction -> erf,
    VertexLabeling -> True]