Re: double labelled y axis in graphs

• To: mathgroup at smc.vnet.net
• Subject: [mg21253] Re: [mg21218] double labelled y axis in graphs
• From: "Tomas Garza" <tgarza at mail.internet.com.mx>
• Date: Mon, 20 Dec 1999 02:28:14 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Charles A. Judge M.D. (Pyrtr [nospamme at nonet.net]) wrote:

> Does anyone know of a way to put 2 y axes on 1 graph. I need to
> present data
> on the y axis and refer to it with 2 equivalent scales.. i.e.
> degrees F and
> degrees C for example.
>
> I could have 2 y axes .. 1 on each side of the graph labelled
> appropriately,
> or have 2 scales on a single y axis on the left side of the graph.

The following example will give you an idea about what to do in this case.

In[1]:=
g1 = Plot[Sin[x], {x, -Pi, Pi}, PlotStyle -> RGBColor[1, 0, 0],
DisplayFunction -> Identity];
In[2]:=
g2 = Plot[2*Sin[x], {x, -Pi, Pi}, PlotStyle -> RGBColor[0, 0, 1],
DisplayFunction -> Identity];
In[3]:=
leftTicks = {{-2, StyleForm["- Two", FontColor -> RGBColor[1, 0, 0]]}, {-1,
StyleForm["- One", FontColor -> RGBColor[1, 0, 0]]}, {0,
StyleForm["Zero", FontColor -> RGBColor[1, 0, 0]]}, {1,
StyleForm["One", FontColor -> RGBColor[1, 0, 0]]}, {2,
StyleForm[" Two", FontColor -> RGBColor[1, 0, 0]]}};
In[4]:=
rightTicks = {{-2, StyleForm["- Four", FontColor -> RGBColor[0, 0, 1]]},
{-1,
StyleForm["- One", FontColor -> RGBColor[0, 0, 1]]}, {0,
StyleForm["Zero", FontColor -> RGBColor[0, 0, 1]]}, {1,
StyleForm["Two", FontColor -> RGBColor[0, 0, 1]]}, {2,
StyleForm[" Four", FontColor -> RGBColor[0, 0, 1]]}};
In[5]:=
Show[g1, g2, Frame -> True,
FrameTicks -> {Automatic, leftTicks, None, rightTicks},
DisplayFunction -> \$DisplayFunction]

(Graph not shown here)

You may refer to the on-line browser on FrameTicks.

Tomas Garza
Mexico City

```

• Prev by Date: Re: Binning data before analysis
• Next by Date: Re: Eigensystem applied to a unitary matrix crashes Mathematica 4.
• Previous by thread: Re: double labelled y axis in graphs
• Next by thread: Elision in Messages