Aquí hay dos soluciones posibles.
Agrande el tamaño del vértice y coloque las etiquetas dentro del vértice. Por supuesto, esto también depende de la longitud de las etiquetas, pero para las etiquetas relativamente breves que funciona bien, mientras que el ejemplo anterior clips fuera de cualquier etiqueta de más de un carácter para el vértice 1.
ejemplo:
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}}]
Use información sobre herramientas para almacenar las etiquetas en lugar de mostrarlas en el gráfico. [Editar: Centro probablemente se ve mejor, y luego se puede envolver etiquetas poniendo \ n en la cadena si es necesario, pero de nuevo, depende de la longitud de la etiqueta.]
ejemplo:
Graph[{1 -> 2, 2 -> 3, 3 -> 1}, VertexLabels -> Placed["Name", Tooltip]]
Si bien esto impide que pueda ver todas las etiquetas al mismo tiempo, nunca tendrá ningún recorte.
No tengo Mathematica 8. ¿Puedes intentar con 'ImagePadding' cada uno de los siguientes:' Automatic', 'Full',' All' por favor? –
El valor predeterminado es 'Automático'. 'Full' y' All' dan el mismo resultado. – Szabolcs
Bien. Pensé que valía la pena intentarlo. Además, no asuma que Automático siempre producirá el mismo resultado que ninguna configuración explícita; a veces no! –