如果我理解正确的话,你需要展平矩阵。
您可以使用as.vector
and rep
添加 id 列,例如:
m = cbind(c(1,2,3),c(4,5,6),c(7,8,9))
row.names(m) = c('R1','R2','R3')
colnames(m) = c('C1','C2','C3')
d <- data.frame(i=rep(row.names(m),ncol(m)),
j=rep(colnames(m),each=nrow(m)),
score=as.vector(m))
Result:
> m
C1 C2 C3
R1 1 4 7
R2 2 5 8
R3 3 6 9
> d
i j score
1 R1 C1 1
2 R2 C1 2
3 R3 C1 3
4 R1 C2 4
5 R2 C2 5
6 R3 C2 6
7 R1 C3 7
8 R2 C3 8
9 R3 C3 9
请注意,此代码将矩阵转换为data.frame
,因为行和列名称可以是字符串,并且不能拥有具有不同列类型的矩阵。
如果您确定所有行和列名称都是数字,则可以将其强制转换为矩阵。