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
>