R矩阵到rownames colnames值

时间:2012-06-24 10:43:47

标签: r

我有一个矩阵A,我想将其转换为格式的数据框:

rownames    colnames    values

使用

unlist(A)       

有帮助,但没有给我rownames

感谢您的帮助。

2 个答案:

答案 0 :(得分:8)

您可以使用reshape2-package:

# load package
> require(reshape2)
# create an example matrix
> mdat <- matrix(c(1,2,3, 11,12,13), nrow = 2, ncol=3, byrow=TRUE,
+                dimnames = list(c("row1", "row2"),
+                                c("C.1", "C.2", "C.3")))
> mdat
     C.1 C.2 C.3
row1   1   2   3
row2  11  12  13
# bring matrix to long format using melt()
> melt(mdat)
  Var1 Var2 value
1 row1  C.1     1
2 row2  C.1    11
3 row1  C.2     2
4 row2  C.2    12
5 row1  C.3     3
6 row2  C.3    13

答案 1 :(得分:5)

基础R中的解决方案:

这是一个矩阵:

test <- matrix(1:9,nrow=3)
rownames(test) <- letters[1:3]
colnames(test) <- letters[4:6]

> test
  d e f
a 1 4 7
b 2 5 8
c 3 6 9

根据需要转换为data.frame

data.frame(
           rownames=as.vector(row(test,as.factor=TRUE)),
           colnames=as.vector(col(test,as.factor=TRUE)),
           values=as.vector(test)
          )

甚至更短,使用expand.grid并确保命名输入:

data.frame(
        expand.grid(rownames=rownames(test),colnames=colnames(test)),
        values=as.vector(test)
          )

甚至更短,使用as.data.frame.table(将提供大部分结果),并使用setNames设置名称

setNames(as.data.frame.table(test),c("rownames","colnames","values"))

结果:

  rownames colnames values
1        a        d      1
2        b        d      2
3        c        d      3
4        a        e      4
5        b        e      5
6        c        e      6
7        a        f      7
8        b        f      8
9        c        f      9