COMPGROUPS.NET | Search | Post Question | Groups | Stream | About | Register

### Reverse the scale in Mathematica plot

• Follow

```Dear experts,

How can I control the plot (reverse or mirror) so that my axes origin
wil be not at the bottom left but on the top right.
Example: This Plot ListPlot[Prime[Range[25]]] is going from bottom
left to top right. How can I change the plot so that it would go from
top right to bottom left (Axis Oridin 0,0 is at top right).

Thank,

Michael

```
 0

```Michael,

With the Presentations package this is fairly easy.

1) We draw the regular points with ListDraw and then reflect them in the two
axes using ReflectionMatrixOp.
2) We specify CustomTicks, which are placed at the negatives of the plotted
positions.
3) It would be easy to add other curves and primitives to the graphic. You
just draw one thing after another.

Needs["Presentations`Master`"]

xticks = CustomTicks[-# &, {0, 25, 5, 5}];
yticks = CustomTicks[-# &, {0, 100, 20, 4}];
Draw2D[
{ListDraw[Prime[Range[25]]] // ReflectionMatrixOp[{0, 1}] //
ReflectionMatrixOp[{1, 0}]},
AspectRatio -> 1/GoldenRatio,
Axes -> True,
Ticks -> {xticks, yticks}]

The Presentations package is available through my web site and cost \$50. It
contains many other features for making custom graphics and dynamic
presentations and writing notebooks in a classical style.

David Park
djmpark@comcast.net
http://home.comcast.net/~djmpark/

Dear experts,

How can I control the plot (reverse or mirror) so that my axes origin
wil be not at the bottom left but on the top right.
Example: This Plot ListPlot[Prime[Range[25]]] is going from bottom
left to top right. How can I change the plot so that it would go from
top right to bottom left (Axis Oridin 0,0 is at top right).

Thank,

Michael

```
 0

```Try

ListPlot[Prime[Range[25]], AxesOrigin -> {25, 100}]

-Francesco

On 03/26/2010 10:37 AM, Michael wrote:
> Dear experts,
>
> How can I control the plot (reverse or mirror) so that my axes origin
> wil be not at the bottom left but on the top right.
> Example: This Plot ListPlot[Prime[Range[25]]] is going from bottom
> left to top right. How can I change the plot so that it would go from
> top right to bottom left (Axis Oridin 0,0 is at top right).
>
> Thank,
>
> Michael
>

```
 0

2 Replies
574 Views

Similiar Articles:

7/23/2012 1:28:37 AM