行列のセルの値を行/列の名前で合計する方法はありますか？

Question

私はそれで

Authors <- c("Abel","Babel","Cain","Devil","Esau") 

は、私はこれらの3人による共著論文につまずいていますゼロ

今

allAuthors <- matrix(0L,nrow=length(Authors),ncol=length(Authors),dimnames=list(Authors,Authors)) 

で初期化され、全体の隣接行列を構築する作者の全体的なリストを持っている想像し

paperAuthors <- c("Babel","Cain","Devil") 

これらのコラボレーションの隣接行列をすべて1で設定します。

coAuth <- matrix(1L,nrow=length(paperAuthors),ncol=length(paperAuthors),dimnames=list(paperAuthors,paperAuthors)) 

質問：

どのように私は指標として行とcolum名を使用して対応するallAuthors マトリックス細胞にcoAuth行列セルの値を合計しますか？

つまり、paperAuthorsの作者の交点に1を持つallAuthors行列のセルを取得したいと思いますが、他のすべては0のままです。

は、あなたのニーズに合わせて仕事をサブセット化だろうか、新しい行列の加算演算を定義する必要があるのですか？非常に多くの

Answer 1

最初に、coAuthマトリックスのインデックスを取得します。

ind <- which(coAuth == 1, arr.ind = TRUE) 

ここで、対応するインデックスをallAuthorsマトリックスで見つける必要があります。

ind.allAuthors <- cbind(
    match(rownames(coAuth), rownames(allAuthors))[ind[, 'row']], 
    match(colnames(coAuth), colnames(allAuthors))[ind[, 'col']]) 

そして今、我々は両方の行列から要素を合計することができます：あなたのソリューションがうまく動作するように見える@plamenpetrov

allAuthors[ind.allAuthors] <- allAuthors[ind.allAuthors] + 1 

Answer 2

をありがとう

allAuthors[paperAuthors, paperAuthors] <- 
    allAuthors[paperAuthors, paperAuthors] + 1 
allAuthors