Re: Axis breaks
- To: mathgroup at smc.vnet.net
- Subject: [mg15542] Re: Axis breaks
- From: Paul Abbott <paul at physics.uwa.edu.au>
- Date: Tue, 26 Jan 1999 13:44:29 -0500 (EST)
- Organization: University of Western Australia
- References: <7812p0$ou8@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Robert Krawczyk wrote:
> I have the problem to display a set of data points, where some points
> have Y-values of about -11 and the majority has Y-values about zero.
> When I use ListPlot to dsiplay these datapoints, I do not get enough
> resolution for the datapoint aorund zero. How can I perform an axis
> break to display Y-values around -11 (say -12 to -10) and Y-values
> between -1 and 1. I would prefer to see all the points in one plot.
> Making to plots with different scales is not my first choice.
Perhaps you could use GraphicsArray?
In[1]:= d1 = Table[{Random[Real, {-1, 1}], Random[Real, {-1, 1}]},
{10}];
In[2]:= d2 = Table[{Random[Real, {-1, 1}], Random[Real, {10, 12}]},
{10}];
In[3]:= SetOptions[ListPlot, DisplayFunction -> Identity]; In[4]:=
Show[GraphicsArray[{{ListPlot[d2, PlotRange -> {{-1, 1}, {9.5, 11.5}},
Ticks -> {{-1, 0, 1}, {10, 11}}]},
{ListPlot[d1, PlotRange -> {{-1, 1}, {-1, 1}},
Ticks -> {{-1, 0, 1}, {-0.5, 0, 0.5}}]}}],
DisplayFunction -> $DisplayFunction, Frame -> True];
or maybe Rectangle?
In[5]:= Show[{ListPlot[d1],
Graphics[Rectangle[{0.25, -0.75}, {1, 0}, ListPlot[d2]]]},
DisplayFunction -> $DisplayFunction];
____________________________________________________________________
Paul Abbott Phone: +61-8-9380-2734
Department of Physics Fax: +61-8-9380-1014
The University of Western Australia Nedlands WA 6907
mailto:paul at physics.uwa.edu.au AUSTRALIA
http://www.physics.uwa.edu.au/~paul
God IS a weakly left-handed dice player
____________________________________________________________________