マトリックスをもういっちょいくぜ!!!!

$ R

a <- matrix(1:36, byrow=TRUE, nc=4)
a
      [,1] [,2] [,3] [,4]
 [1,]    1    2    3    4
 [2,]    5    6    7    8
 [3,]    9   10   11   12
 [4,]   13   14   15   16
 [5,]   17   18   19   20
 [6,]   21   22   23   24
 [7,]   25   26   27   28
 [8,]   29   30   31   32
 [9,]   33   34   35   36

colnames(a) <- c("wd1","wd2","kn1","kd2") 
a
      wd1 wd2 kn1 kd2
 [1,]   1   2   3   4
 [2,]   5   6   7   8
 [3,]   9  10  11  12
 [4,]  13  14  15  16
 [5,]  17  18  19  20
 [6,]  21  22  23  24
 [7,]  25  26  27  28
 [8,]  29  30  31  32
 [9,]  33  34  35  36

rownames(a) <- c("gene1", "gene2", "gene3","gene4","gene5","gene6","gene7","gene8","gene9")
a
      wd1 wd2 kn1 kd2
gene1   1   2   3   4
gene2   5   6   7   8
gene3   9  10  11  12
gene4  13  14  15  16
gene5  17  18  19  20
gene6  21  22  23  24
gene7  25  26  27  28
gene8  29  30  31  32
gene9  33  34  35  36