Re: Bad Alignment of Y Axes
- To: mathgroup at smc.vnet.net
- Subject: [mg37260] Re: [mg37250] Bad Alignment of Y Axes
- From: BobHanlon at aol.com
- Date: Mon, 21 Oct 2002 02:29:21 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 10/18/2002 6:29:00 AM, ulbrich at biochem.mpg.de writes:
>I have 2 or more separate Plots which have different y but the same x
>axes.
>Like:
>
>Plot[Sin[x],{x,0,10}];
>Plot[1000Sin[x],{x,0,10}];
>
>
>At the display and printout, the y axes are not aligned. Even using the
>PlotRegion and ImageSize Options doesn't help. The only way I found
>was to align it manually with the mouse.
>Is there a package that solves the problem?
>The problem is, I have many, many plots to align...
>I use Mathematica 4.0.2.0 on a Windows 2000 PC.
>
Pad each axis label with a string of blanks that makes both axes
labels take up the same space.
showplot[plt_] := Show[plt,
Ticks -> {Automatic,
Prepend[(Ticks /.
AbsoluteOptions[plt])[[2]],
{0.001, StringJoin[Table[" ", {5}]]}]},
DisplayFunction -> $DisplayFunction]
p1 = Plot[Sin[x], {x, 0, 10},
DisplayFunction -> Identity];
p2 = Plot[1000Sin[x], {x, 0, 10},
DisplayFunction -> Identity];
showplot[p1];
showplot[p2];
Bob Hanlon