Re: GraphicsGrid with annotated LayeredGraphPlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg128874] Re: GraphicsGrid with annotated LayeredGraphPlot*From*: Bob Hanlon <hanlonr357 at gmail.com>*Date*: Sat, 1 Dec 2012 04:36:50 -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*References*: <20121130105425.2FC326848@smc.vnet.net>

GraphicsGrid[{{b, b}, {b, b}}, AspectRatio -> 1, ImageMargins -> 5] Bob Hanlon On Fri, Nov 30, 2012 at 5:54 AM, Themis Matsoukas <tmatsoukas at me.com> wrote: > 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 >