Re: Aligning Graphs in GraphicsArray

*To*: mathgroup at smc.vnet.net*Subject*: [mg3905] Re: Aligning Graphs in GraphicsArray*From*: ianc (Ian Collier)*Date*: Sun, 5 May 1996 23:12:01 -0400*Organization*: Wolfram Research, Inc.*Sender*: owner-wri-mathgroup at wolfram.com

In article <4m1hki$pq4 at dragonfly.wolfram.com>, Dirk Kautz <kautz at tyto.bio2.rwth-aachen.de> wrote: > Hi, does anybody know how to align the y-axes of plots with ticks of different > width in a GraphicsArray ? > > In this simple example: > > Show[GraphicsArray[{{Plot[x,{x,0,100}]},{Plot[100 x,{x,0,100}]}}]] > > Y-Axes don't align. I'm sure somebody has solved this - thanks in advance for any > help on this! > > Dirk > The following is taken from the Technical Support FAQ area of Wolfram Research's Web pages. The exact URL is: http://www.wolfram.com/support/Graphics/Axes/GraphicsArrayTicks/index.html The function TickFunction (as described in the ExtendGraphics package) will allow you to create functions that generate ticks with special formatting. This package is available from MathSource (item number 0205-041.) Here is an example. First, here are two plots with the same x-scale but different y-scales. Note that because the tick labels are wider in the second plot, the graphs are not aligned when placed in a GraphicsArray. In[1]:= Show[GraphicsArray[{ {Plot[ x, {x, 0, 100}, DisplayFunction -> Identity]}, {Plot[100 x, {x, 0, 100}, DisplayFunction -> Identity]}}]] Out[1]= -GraphicsArray- We load the Ticks package. In[2]:= Needs[ "ExtendGraphics`Ticks`"]; The following two lines defines the function setTickWidth, which uses PaddedForm to format the numbers to print out leaving room for exactly n digits. In[3]:= textFormat[n_][t_] := PaddedForm[N[#],n]& /@ t In[4]:= setTickWidth[n_][min_,max_] := TickFunction[min,max, TextFunction-> textFormat[n]] In the the above example, the largest tick label was 5 digits wide. Hence, we use setTickWidth[5] as the value for the TickFunction option. In[5]:= Show[GraphicsArray[{ {Plot[x, {x, 0, 100}, DisplayFunction -> Identity, Ticks -> setTickWidth[5]]}, {Plot[100 x, {x, 0, 100}, DisplayFunction -> Identity, Ticks -> setTickWidth[5]]}}]] Out[5]= -Graphics- The ExtendGraphics packages are descibed in greater detail in Tom Wickham-Jones book "Mathematica Graphics: Techniques & Applications" (TELOS/Springer-Verlag, 1994). This and many other frequently asked questions about Mathematica is answered in the Technical Support FAQ area of the Wolfram Research Web pages <http://www.wolfram.com/support/>. I hope this helps. --Ian ----------------------------------------------------------- Ian Collier Wolfram Research, Inc. ----------------------------------------------------------- tel:(217) 398-0700 fax:(217) 398-0747 ianc at wolfram.com Wolfram Research Home Page: http://www.wolfram.com/ ----------------------------------------------------------- ==== [MESSAGE SEPARATOR] ====