R - 3生のベクトルから行列を作成

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 

ベクトルをAとBはそれぞれ行と列で、データはCです。 ご協力いただければ幸いです。

Answer 1

あなたが試すことができます。

`[<-`(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 2

使用?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 3

別のオプションは、作成後reshape2からacastある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