Re: Two independent y axes ?

*To*: mathgroup at smc.vnet.net*Subject*: [mg65397] Re: Two independent y axes ?*From*: Geico Caveman <spam at spam.invalid>*Date*: Thu, 30 Mar 2006 05:29:48 -0500 (EST)*References*: <e0dpa6$q91$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Bill Rowe wrote: > 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 No. I am plotting velocity and acceleration for a particle as a function of time. These are physically distinct quantities and cannot share a y axis. Having colorful legends will not cut it.