Question

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

rownames    colnames    values

使用

unlist(A)

有帮助，但没有给我rownames

感谢您的帮助。

Answer 1

您可以使用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

Answer 2

基础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

R矩阵到rownames colnames值

2 个答案: