[6514] in s-news-athena
Re: switching origin
daemon@ATHENA.MIT.EDU (Richard M. Heiberger)
Fri Feb 24 21:54:48 1995
Date: Fri, 24 Feb 95 21:43:05 -0500
From: rmh@astro.ocis.temple.edu (Richard M. Heiberger)
To: s-news@utstat.toronto.edu, venditti@ling.ohio-state.edu
Here as a transcript showing an outline of what you are looking for.
Further adjustment of the axis and related parameters should get you exactly
what you want. Then just package it into a function and you are done.
> plot(1:10)
> x <- 1:10
> y <- sample(1:10)
> y
[1] 4 8 9 3 6 2 5 7 10 1
> plot(x,y)
> plot(11-x,11-y)
> par(mfrow=c(4,1))
> plot(x,y)
> plot(11-x,11-y)
> plot(11-x,11-y, xaxt="n", yaxt="n")
> xaxp <- par("xaxp")
> seqx <- seq(xaxp[1], xaxp[2], length=xaxp[3]+1)
> axis(3, at=seqx, labels=11-seqx)
> yaxp <- par("yaxp")
> seqy <- seq(yaxp[1], yaxp[2], length=yaxp[3]+1)
> axis(2, at=seqy, labels=11-seqy)
>
