Graph [] отсекает метки вершин в Mathematica

График [] имеет тенденцию обрезать метки вершин в системе Mathematica. Я ищу надежный обходной путь.

Пример:

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

Мой нынешний обходной путь:

SetOptions[Graph, ImagePadding -> 12]

Это не надежно, потому что значение ImagePadding необходимо вручную настраивать в зависимости от размера этикетки.