MathGroup Archive 2012

[Date Index] [Thread Index] [Author Index]

Search the Archive

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



  • Prev by Date: Re: retina display
  • Next by Date: R: Re: Difficult antiderivative
  • Previous by thread: Re: retina display
  • Next by thread: Improvements to Mathematica 9 Frontend?