       Re: [Q] HELP! with plot within a BarChart[]

• To: mathgroup at smc.vnet.net
• Subject: [mg3213] Re: [Q] HELP! with plot within a BarChart[]
• From: ianc (Ian Collier)
• Date: Sat, 17 Feb 1996 14:17:27 -0500
• Organization: Wolfram Research, Inc.
• Sender: owner-wri-mathgroup at wolfram.com

```In article <4frv74\$k13 at dragonfly.wolfram.com>,
David.A.Johnson at news.acns.nwu.edu wrote:

> A while ago I posted a request for help to place a plot within a region
of a plot.
>
> First I'd like to thank Dave Wagner for his suggestion of
Epilog->Rectangle[{x1,y1}, {x2, y2}, ListPlot[data]]
> However the problem I am now having is that Epilog is not a valid option
of BarChart.
>
> What I'm trying to accomplish would be something like
> p1 = ListPlot[data1];;
> p2 = ListPlot[data2];;
> BarChart[ data3,
>                    BarGroupSpacing -> 0,
>                    Epilog->Rectangle[{ x1, y1},{x2,y2},
GraphicsArray[{{p1,p2}}]]
>
> if BarChart offered the Epilog functionability.
>
> I'm running Mma V 2.2 on NeXTStep/FIP if it matters (for version differences).
>
>
>
> David A. Johnson

You can use the technique for making plots within plots described
in section 2.9.6 of Mathematica A System for Doing Mathematics by
Computer.

All you do is use separate Rectangle primitives to contain both
the BarChart and the Graphics Array. Here is an example. You may
need to tweak the coordiantes of the Rectangles to get your
example to work correctly.

In:=
data1 = Table[ {x, Sin[x]/x}, {x, -10,10, .4}];
In:=
data2 = Table[ {x, Cos[x]}, {x, -10,10, .4}];
In:=
data3 = Table[  x^2/100, {x, -10,10}];
In:=
p1 = ListPlot[data1];

In:=
p2 = ListPlot[data2];

In:=
p3 = BarChart[ data3,
BarGroupSpacing -> 0]
Out=
-Graphics-

In:=
Show[Graphics[ {Rectangle[{0, 0}, {1, 1}, p3],
Rectangle[{0.6, 0.6}, {1.2, 1.4},
GraphicsArray[{{p1,p2}}]]} ]]
Out=
-Graphics-

I hope this helps.

--Ian

-----------------------------------------------------------
Ian Collier
Wolfram Research, Inc.
-----------------------------------------------------------
tel:(217) 398-0700   fax:(217) 398-0747    ianc at wolfram.com