# [R] several common sub-axes within multiple plot area

Karl Brand k.brand at erasmusmc.nl
Mon Jun 28 22:03:03 CEST 2010

```Cheers Greg,

That's really simple. That's excellent. Thank you.

Sincere thanks for the education. The more i learn, the more i like
getting it done with R.

karl

On 6/28/2010 7:32 PM, Greg Snow wrote:
>
> #my example:
> dev.new()
>
> layout( rbind( c(1,2), c(7,7), c(3,4), c(8,8), c(5,6), c(9,9) ),
>   		heights=c(10,1,10,1,10,1) )
>
>
> #Graph 1:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 1 (Int)",
>        ylab = "Variable A",
>        main = "Factor X")
> #Graph 2:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 1 (Int)",
>        ylab = "Variable A",
>        main = "Factor Y")
> #Graph 3:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 2 (Int)",
>        ylab = "Variable B")
> #Graph 4:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 2 (Int)",
>        ylab = "Variable B")
> #Graph 5:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 3 (Int)",
>        ylab = "Variable C")
> #Graph 6:
> plot(rnorm(20), rnorm(20),
>        xlab = "Results 3 (Int)",
>        ylab = "Variable C")
>
> par(mar=rep(0,4))
> plot.new()
> text( .5, .5, "Results 1 (Int)", font=2, cex=1.5 )
> plot.new()
> text( .5, .5, "Results 2 (Int)", font=2, cex=1.5 )
> plot.new()
> text( .5, .5, "Results 3 (Int)", font=2, cex=1.5 )
>
>
>
>
>
>
>
>

--
Karl Brand
Department of Genetics
Erasmus MC
Dr Molewaterplein 50
3015 GE Rotterdam
T +31 (0)10 704 3457 |F +31 (0)10 704 4743 |M +31 (0)642 777 268

```