Re: Two independent y axes ?
- To: mathgroup at smc.vnet.net
- Subject: [mg65357] Re: Two independent y axes ?
- From: Bill Rowe <readnewsciv at earthlink.net>
- Date: Tue, 28 Mar 2006 04:05:23 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On 3/27/06 at 6:56 AM, spam at spam.invalid (Geico Caveman) wrote:
>I am trying to plot a bunch of functions and some data together.
>Some of the data and some of the functions have *very* different y
>range from the others. How do I create 2 independent y axes (like
>gnuplot - y and y2 axes) to show the data effectively ?
Is something like the following what you are looking for
In[8]:=
x = Sort[Table[Random[], {10}]];
y = 20*Reverse[Sort[Table[Random[], {10}]]];
In[10]:=
Show[Block[{$DisplayFunction = Identity},
{ListPlot[Rescale[x], PlotStyle -> Blue],
ListPlot[Rescale[y], PlotStyle -> Red]}],
Frame -> True, FrameTicks -> {Automatic,
Range[0, 1, 0.2], None, ({#1, 20*#1} & ) /@
Range[0, 1, 0.2]}];
--
To reply via email subtract one hundred and four