在Wolfram Mathematica中是否可以使用颜色函数为图形的边缘上色,而该函数取决于边缘上的坐标?就像在Plot []中使用ColorFunction选项一样。
我在图的边缘指定了一个函数,具体取决于边缘的坐标。
是否可以在边缘上绘制此功能的密度?
感谢您的回复。
PS:第一个想法-使用Inset []插入EdgeRenderingFunction中的图形彩色对象,但这似乎是很不自然的。有没有简单的方法?
最佳答案
一种使用ColorFunction
上色图表边缘的方法是:
ClearAll[colorededge];
colorededge[pts_, colorfunc_: Function[{x, y}, ColorData["TemperatureMap"][y]]] :=
ListPlot[pts, Joined -> True, PlotStyle -> Thick, Axes -> False,
ColorFunction -> colorfunc, ColorFunctionScaling -> True];
edgshpfnc = (If[Last[#2] == "B", First@colorededge[#1],
First@colorededge[#1, Function[{x, y}, Blend[{Yellow, Red}, x]]]] &);
Graph[{"A" -> "B", "B" -> "C", "C" -> "A"},
VertexCoordinates -> {"A" -> {0, 0}, "B" -> {1, 1}, "C" -> {2, 0}},
EdgeShapeFunction -> edgshpfnc, VertexLabels -> "Name", ImagePadding -> 10]
给
和
GraphPlot[{"A" -> "B", "B" -> "C", "C" -> "A"},
EdgeRenderingFunction -> edgshpfnc, VertexLabeling -> True]
给