Problem showing a column object beside a graph using GraphicsGrid

• To: mathgroup at smc.vnet.net
• Subject: [mg82451] Problem showing a column object beside a graph using GraphicsGrid
• From: tomfabtastic at hotmail.com
• Date: Sat, 20 Oct 2007 05:59:28 -0400 (EDT)

```Hello,

I have constructed a graph and would like to put alongside the graph a
legend. Here is the graph :
(*Construct first graph*)
xtick = Transpose[{Range[5], {"Jun-06", "Sep-06", "Dec-06", "Mar-07",
"Jun-07"}}];
ytick = Transpose[{Range[0, 6, 1],
Map[StringJoin["\$", ToString[#]] &, Range[0, 6, 1]]}];
firstg = ListPlot[{{3, 4, 5, 5, 6}, {1, 1, 1, 1, 1}} , Joined -> True,
PlotRange -> {{0.5, 5.5}, {0, 6}}, AxesOrigin -> {0.5, 0},
Filling -> {1 -> {Axis, Brown}, 2 -> {Axis, Yellow}},
GridLines -> {None, Range[0, 6, 1]}, Frame -> True,
FrameTicks -> {{ytick, None}, {xtick, None}}];
(*Construct second graph*)
secondg =
StackedBarChart[{2, 2, 4, 4, 5}, {0.5, 0.5, 0.5, 0.5, 0.5},
BarStyle -> {Blue, Black}];
(*Combine graphs*)
combin = Show[firstg, secondg, PlotLabel -> "Title Here",
Epilog -> {Style[Text["First", {1, 5}, {0, -1}], 12, Hue[0], Bold],
Style[Text["Second", {1, 4}, {0, -1}], 12, Hue[.6], Bold]}]

Here is the legend column I would like to put alongside the graph :
blkSquare = Graphics[Polygon[{{0.1, 0}, {.1, .1}, {0, .1}, {0, 0}}]];
bluSquare =
Graphics[{Blue, Polygon[{{0.1, 0}, {.1, .1}, {0, .1}, {0, 0}}]}];
brnSquare =
Graphics[{Brown, Polygon[{{0.1, 0}, {.1, .1}, {0, .1}, {0, 0}}]}];
ylwSquare =
Graphics[{Yellow, Polygon[{{0.1, 0}, {.1, .1}, {0, .1}, {0, 0}}]}];
legend1 =
Column[{Style["Series 1", 15],
GraphicsRow[{Style["First", 15], blkSquare}],
GraphicsRow[{Style["Second", 15], bluSquare}],
Style["Series 2", 15],
GraphicsRow[{Style["First", 15], brnSquare}],
GraphicsRow[{Style["Second", 15], ylwSquare}] }, Frame -> True]

The problem is when I try to show the graph and legend column
together :
GraphicsGrid[{{combin, legend1 }}, ImageSize -> 700]

As can be seen, GraphicsGrid gives both objecst the same ImageSize.
What I want is for the legend to be much narrower and fit against the
graph which is bigger.

Any suggestions ?

Regards,
Tom

```

• Prev by Date: Re: a problem about mathematica output
• Next by Date: Re: A riddle: Functions that return unevaluated when they
• Previous by thread: Re: Re: Integer Points on elliptic curve
• Next by thread: Re: Problem showing a column object beside a graph using GraphicsGrid