Question

我有3个载体如下：

A <- c("A", "B", "C", "D", "E")
B <- c("1/1/1", "1/1/1", "2/1/1", "2/1/1", "3/1/1")
C <- c(1, 1, -1, 1, -1)

我希望使用这3个向量创建如下的矩阵：

- 1/1/1 2/1/1 3/1/1
A   1    0     0
B   1    0     0
C   0    -1    0
D   0    1     0
E   0    0     -1

其中，vector A和B分别是行和列，我的数据为C。任何帮助将不胜感激。

Answer 1

使用?xtabs

xtabs(C ~ A+B)
#   B
#A   1/1/1 2/1/1 3/1/1
#  A     1     0     0
#  B     1     0     0
#  C     0    -1     0
#  D     0     1     0
#  E     0     0    -1

Answer 2

您可以尝试：

`[<-`(array(0,c(length(unique(A)),length(unique(B))),
      list(unique(A),unique(B))),
       cbind(A,B),C)
#  1/1/1 2/1/1 3/1/1
#A     1     0     0
#B     1     0     0
#C     0    -1     0
#D     0     1     0
#E     0     0    -1

Answer 3

创建acast

后，另一个选项reshape2来自data.frame

library(reshape2)
acast(data.frame(A, B, C), A~B, value.var = "C", fill =0)
#  1/1/1 2/1/1 3/1/1
#A     1     0     0
#B     1     0     0
#C     0    -1     0
#D     0     1     0
#E     0     0    -1

R - 从3个原始向量创建矩阵

3 个答案: