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 ____________________________________________________________________