GraphicsGrid with annotated LayeredGraphPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg128841] GraphicsGrid with annotated LayeredGraphPlot
- From: Themis Matsoukas <tmatsoukas at me.com>
- Date: Fri, 30 Nov 2012 05:54:25 -0500 (EST)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
I want to produce a graphics grid with several annotated LayeredGraphPlots. Here is a minimal example:
m = 4;
treeConnectionsjPosition = {"{1, 1}" -> "{2, 1}",
"{2, 1}" -> "{3, 1}", "{2, 1}" -> "{3, 2}", "{3, 1}" -> "{4, 1}",
"{3, 2}" -> "{4, 1}"};
vertexList = {{6, 20}, {6, 13.3}, {0.`, 6.6}, {12, 6.6}, {6., 0.`}};
a = LayeredGraphPlot[
treeConnectionsjPosition,
VertexLabeling -> False,
VertexCoordinateRules -> vertexList,
DirectedEdges -> {True, "ArrowheadsSize" -> 0.04}
]
b = Show[a,
Graphics[{Text[
Style[TraditionalForm[M == m], FontSize -> 18], {0, 19}]}]]
In this example, a is a layered graph plot and b is the same plot with some text annotation inside it. Compare now the following three grids:
GraphicsGrid[{{a, a}, {a, a}}]
GraphicsGrid[{{a, b}, {b, b}}]
GraphicsGrid[{{b, b}, {b, b}}]
The first two give the expected grid of plots, but the third one (all b's) produces a grid in which each graph is tiny and positioned inside a grid box that is too thin and too tall. Any ideas how to fix this?
Thanks
Themis