Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2007

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

Search the Archive

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