在Mathematica.在GraphPlot中使用图像作为顶点时,如何防止图像重叠？

Question

我GraphPlot用来绘制大约100个顶点的有向图.我通过定义VertexRenderingFunction用一个小的矩形或方形图像替换每个顶点.图像经常重叠.有没有办法让Mathematica将顶点进一步分开以防止它们重叠？

我已经为'Method'("SpringElectricalEmbedding","SpringEmbedding","HighDimensionalEmbedding","CircularEmbedding","RandomEmbedding","LinearEmbedding")尝试了各种明显的选项.

trans = {1 -> 1, 2 -> 1, 3 -> 1, 4 -> 1, 5 -> 1, 6 -> 1, 7 -> 1,
8 -> 1, 9 -> 1, 10 -> 1, 11 -> 1, 12 -> 1, 13 -> 1, 14 -> 1, 
15 -> 1, 16 -> 1, 17 -> 1, 18 -> 13, 19 -> 1, 20 -> 13, 21 -> 13, 
22 -> 70, 23 -> 1, 24 -> 1, 25 -> 1, 26 -> 1, 27 -> 13, 28 -> 13, 
29 -> 1, 30 -> 13, 31 -> 13, 32 -> 1, 33 -> 19, 34 -> 70, 35 -> 70,
36 -> 1, 37 -> 1, 38 -> 1, 39 -> 39, 40 -> 13, 41 -> 2, 42 -> 13, 
43 -> 1, 44 -> 2, 45 -> 1, 46 -> 52, 47 -> 2, 48 -> 68, 49 -> 49, 
50 -> 19, 51 -> 78, 52 -> 1, 53 -> 1, 54 -> 39, 55 -> 13, 56 -> 56,
57 -> 13, 58 -> 13, 59 -> 1, 60 -> 36, 61 -> 1, 62 -> 52, 63 -> 2,
6 4 -> 68, 65 -> 19, 66 -> 56, 67 -> 4, 68 -> 76, 69 -> 19, 
70 -> 78, 71 -> 1, 72 -> 39, 73 -> 52, 74 -> 56, 75 -> 23, 
76 -> 76, 77 -> 56, 78 -> 78};

image = {{1, 0, 0, 0, 0}, {0, 1, 0, 0, 0}};

GraphPlot[trans, DirectedEdges -> True, VertexLabeling -> True,
VertexRenderingFunction -> (Inset[
ArrayPlot[image, ImageSize -> 15, Mesh -> True], #1] &)]

Answer 1

编辑[我根据你给出的例子重新开始]：

使用你trans的，image你可以尝试：

p = ArrayPlot[image, ImageSize -> 35, Mesh -> True];

Graph[trans, DirectedEdges -> True,  VertexLabels -> Placed[p, Tooltip], 
  ImagePadding -> 10, ImageSize -> 500]

当您将鼠标悬停在每个顶点上时，图像将出现在工具提示中。如果您愿意，您可以对不同的顶点标签使用不同的图像；只需使用规则列表即可。

下图显示了它的外观（没有工具提示）。单击链接查看它如何与工具提示一起使用。