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