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