Graph[] 切断 Mathematica 中的顶点标签

Question

Graph[] 在 Mathematica 中倾向于切断顶点标签。我正在寻找一个可靠的解决方法。

示例：

Graph[{1 -> 2, 2 -> 3, 3 -> 1}, VertexLabels -> "Name"]

我目前的解决方法：

SetOptions[Graph, ImagePadding -> 12]

这并不可靠，因为 ImagePadding需要根据标签大小手动调整。

Answer 1

显然，在 Graph 对象上使用 FullGraphics 会修复出于显示目的的剪裁，但会牺牲交互性。

根据下面的评论，Show[] 也可以工作，并且避免修改图形。

Answer 2

这里有两种可能的解决方法。

放大顶点大小并将标签放置在顶点内。当然，这也取决于标签的长度，但对于较短的标签，它效果很好，而上面的示例会剪掉顶点 1 的任何超过一个字符的标签。

例如：

Table[Graph[{1 -> 2, 2 -> 3, 3 -> 1}, VertexSize -> 0.3, 
    VertexLabels -> Table[i -> 
       Placed["vertex" <> ToString[i], p], {i, 3}],
    VertexShapeFunction -> "Square", PlotLabel -> p], 
 {p, {Left, Top, Right, Bottom, Center}}]

使用工具提示来存储标签而不是显示它们在图形上。 [编辑：中心可能看起来最好，然后如果需要，您可以通过在字符串中放入 \n 来包装标签，但同样，取决于标签长度。]

例如：

Graph[{1 -> 2, 2 -> 3, 3 -> 1}, VertexLabels -> Placed["Name", Tooltip]]

虽然这会阻止您看到所有同时添加标签，您永远不会有任何剪辑。