Reverse axis for LogLogListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg67943] Reverse axis for LogLogListPlot
- From: "kevin_jazz" <kevinbowman at mac.com>
- Date: Thu, 13 Jul 2006 06:54:19 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I found a discussion back in 2000 for reverse the axis of a Plot. In that discussion, Bob Hanlon provided the following code (I'm a bit new, so I still don't quite understand it): reversedListPlot[expr_, {REVx_?(Element[#, Booleans] &), REVy_?(Element[#, Booleans] &)}, opts___] := Module[{plt = ListPlot[expr, opts, DisplayFunction -> Identity]}, Show[{ plt /. {x_?NumericQ, y_?NumericQ} :> {If[REVx, -x, x], If[REVy, -y, y]}}, Ticks -> { If[REVx, (Ticks /. AbsoluteOptions[plt, Ticks])[[1]] /. {x_, label_, len_, style_} :> {-x, label, len, style}, Automatic], If[REVy, (Ticks /. AbsoluteOptions[plt, Ticks])[[2]] /. {y_, label_, len_, style_} :> {-y, label, len, style}, Automatic] }, DisplayFunction -> $DisplayFunction]] This has worked quite well for standard plottting. However, I need to reverse the axis for a LogLog plot. In particular I'm trying to plot terrestrial ozone as a function of pressure. It is common practice to plot the highest level, e.g. 1000 hPa, at the bottom of the plot. The pressure scale is best plotted in log and ozone, which can vary by several orders of magnitude, is also plotted in Log. I tried creating the same plot for LogLogListPlot (I simply changed ListPlot to LogLogListPlot), but I get garbage. Does have any insight on how to reverse the axis properly either using Bob Hanlon's approach or their own code? Thanks, Kevin Bowman JPL