Reversing the axis of a plot
- To: mathgroup at smc.vnet.net
- Subject: [mg15044] Reversing the axis of a plot
- From: "John C. Erb, Ph.D." <JOHN_C_ERB at prodigy.net>
- Date: Wed, 9 Dec 1998 04:12:27 -0500
- Sender: owner-wri-mathgroup at wolfram.com
Occasionally, I have would like to make a plot where one of the axes is
reversed; Mathematica does not seem to have this capability built in.
Wolfram support shows how to reverse the order of ticks in a plot (see
www.wolfram.com/support/Graphics/Axes/Ticks/Reverse.html); however it
does not reverse the plot,just the ticks on the axis.
The best workaround I've come up is given in the following example,
which makes use of reversing the ticks.
I want to reverse the x-axis of the
plot of 3x^2+5x+2.
To get a normal plot I could
use: Plot[3x^2+5x+2,{x,0,5}];
To reverse the plot for the x-axis,
I would do the following.
---------------------------------------------------------
Needs["ExtendGraphics`Ticks`"];
tickreverse[start_,finish_]:=
TickFunction[start,finish,TextFunction->Reverse];
this=Table[{x,3x^2+5x+2},{x,0,5,0.25}]; {x,y}=Transpose[this];
that=Transpose[{Reverse[x],y}];
ListPlot[that,Ticks->{tickreverse,Automatic},PlotJoined->True];
---------------------------------------------------------- NOTE: For
some reason, the above needs to be in 3 separate cells to function
properly. Does anyone have a more eloquent solution or any comments?
John C. Erb
email: John_C_Erb at prodigy.net