# Re: [R] pairewise plots

From: Dimitris Rizopoulos <dimitris.rizopoulos_at_med.kuleuven.ac.be>
Date: Wed 30 Mar 2005 - 01:30:21 EST

dat <- array(sample(24), dim=c(4,2,3))
par(mfrow=c(3,1))
apply(dat, 3, function(x) plot(rowSums(x), x[,2]-x[,1]))

I hope it helps.

Best,
Dimitris

Dimitris Rizopoulos
Ph.D. Student
Biostatistical Centre
School of Public Health
Catholic University of Leuven

```Tel: +32/16/336899
Fax: +32/16/337015
Web: http://www.med.kuleuven.ac.be/biostat/
http://www.student.kuleuven.ac.be/~m0390867/dimitris.htm

```
• Original Message ----- From: "Hai Lin" <kevinvol2002@yahoo.com> To: <r-help@stat.math.ethz.ch> Sent: Tuesday, March 29, 2005 4:58 PM Subject: [R] pairewise plots

I have a data generated as the following,

dat <- data.frame(matrix(sample(24), nrow=4)) dimnames(dat) <-list(rownames=c('g1','g2','g3','g4'), colnames=c("A_CH1","A_CH2","B_CH1","B_CH2","C_CH3","C_CH3"))

» dat

A_CH1 A_CH2 B_CH1 B_CH2 C_CH3 C_CH3

```g1    16    24     7     9    14    20
g2     4    10    19    22     5    17
g3    11    18    21    12    13     1
g4     2     3    15     6    23     8

```

I am trying to plot them pairwise by column(might extend to more than 3 pairs)
Instead manually plotting as below, could you please point me out with easier ways?

par(mfrow=c(3,1))

```plot(dat\$A_CH1+dat\$A_CH2, dat\$A_CH1-dat\$A_CH2)
plot(dat\$B_CH1+dat\$B_CH2, dat\$B_CH1-dat\$B_CH2)
plot(dat[,5]+dat[,6], dat[,5]-dat[,6])

```

R-help@stat.math.ethz.ch mailing list