は、私はこのような例のためにある行列持っ

Question

対称バイナリ行列の構築：私はそれはそれのdimnamesだ対称バイナリ行列を作りたい

rownames V1 
a 1 
c 3 
b 2 
d 4 
y 2 
q 4 
i 1 
j 1 
r 3 

は上記行列のrownamesと同じです。私は1は誰がどのように知っている

dimnames  
    a c b d y q i j r 
a 1 0 0 0 0 0 1 1 0 
c 0 1 0 0 0 0 0 0 1 
b 0 0 1 0 1 0 0 0 0 
d 0 0 0 1 0 1 0 0 0 
y 0 0 1 0 1 0 0 0 0 
q 0 0 0 1 0 1 0 0 0 
i 1 0 0 0 0 0 1 1 0 
j 1 0 0 0 0 0 1 1 0 
r 0 1 0 0 0 0 0 0 1 

のような反対situation.This行列のためにそれの前の同じ番号を持つ変数と0を配置することになる示されたように1 & 0することにより、これらの行列を埋めるためにしたいですそれをしてもいいですか？

Answer 1

使用dist：

DF <- read.table(text = "rownames V1 
       a 1 
       c 3 
       b 2 
       d 4 
       y 2 
       q 4 
       i 1 
       j 1 
       r 3", header = TRUE) 

res <- as.matrix(dist(DF$V1)) == 0L 
#alternatively: 
#res <- !as.matrix(dist(DF$V1)) 
#diag(res) <- 0L #for the first version of the question, i.e. a zero diagonal 
res <- +(res) #for the second version, i.e. to coerce to an integer matrix 
dimnames(res) <- list(DF$rownames, DF$rownames) 
# 1 2 3 4 5 6 7 8 9 
#1 1 0 0 0 0 0 1 1 0 
#2 0 1 0 0 0 0 0 0 1 
#3 0 0 1 0 1 0 0 0 0 
#4 0 0 0 1 0 1 0 0 0 
#5 0 0 1 0 1 0 0 0 0 
#6 0 0 0 1 0 1 0 0 0 
#7 1 0 0 0 0 0 1 1 0 
#8 1 0 0 0 0 0 1 1 0 
#9 0 1 0 0 0 0 0 0 1 

Answer 2

あなたがtableとcrossprodを使用してこれを行うことができます。

tcrossprod(table(DF))  
#   rownames 
# rownames a b c d i j q r y 
#  a 1 0 0 0 1 1 0 0 0 
#  b 0 1 0 0 0 0 0 0 1 
#  c 0 0 1 0 0 0 0 1 0 
#  d 0 0 0 1 0 0 1 0 0 
#  i 1 0 0 0 1 1 0 0 0 
#  j 1 0 0 0 1 1 0 0 0 
#  q 0 0 0 1 0 0 1 0 0 
#  r 0 0 1 0 0 0 0 1 0 
#  y 0 1 0 0 0 0 0 0 1 

彼らはあなたのデータならば、むしろアルファベットよりも、あなたが

tcrossprod(table(DF))[DF$rownames, DF$rownames] 

または使用率

tcrossprod(table(factor(DF$rownames, levels=unique(DF$rownames)), DF$V1)) 

をサブセットすることができ、データに見つかったとして、あなたは、行と列の順序をしたい場合大または疎である場合は、前のように結果の表の順序を変更するのと同様の方法で、xtabsのスパース行列代数を使用できます。

Matrix::tcrossprod(xtabs(data=DF, ~ rownames + V1, sparse=TRUE))