データフレームの特定の値を行列の特定の位置に追加する

Question

データフレームに格納した値を、行列の属する場所に追加したいとします。

これはデータです：

データフレーム：

df <- read.table(text=' A B C 
    name1 add1 1  
    name2 add1 2 
    name3 add1 3 
    name1 add2 1  
    name2 add2 2 ', header=TRUE) 
    > df 
     A B C 
1 name1 add1 1 
2 name2 add1 2 
3 name3 add1 3 
4 name1 add2 1 
5 name2 add2 2 

がマトリックス：だからdf$Aで一意のエントリはdf$Bでma 一意のエントリの行は

ma <- matrix(NA, ncol=2, nrow=3) 
colnames(ma)<-c('add1', 'add2') 
rownames(ma)<-c('name1', 'name2', 'name3') 
> ma 
     add1 add2 
name1 NA NA 
name2 NA NA 
name3 NA NA 

をされていますma

結果の行列は次のようになり：データフレームは、任意の順序であっても、名前のいくつかの組み合わせと加えることができること

> ma 
     add1 add2 
name1 1 1 
name2 2 2 
name3 3 NA 

注（そうまだmaでNAが存在すべきである）が存在しなくてもよい

これまでのところ、私は私があなたの提案を感謝されるdfから値を取り、ma

にそれらを書くために動作するコードを生成することができませんでした。

ありがとうございました！

Answer 1

私が問題を正しく理解していれば、データを「ロングフォーマット」から「ワイドフォーマット」に変換するだけです。これは、パッケージreshape2を使用すると簡単に実現できます。

library(reshape2) 

dcast(df, A ~ B) 
#  A add1 add2 
# 1 name1 1 1 
# 2 name2 2 2 
# 3 name3 3 3 

Answer 2

あなたは自分のオリジナルのdfの形状を変更、値を入力した後、空の行列を作成する必要はありませんtidyr

library(tidyr) 

spread(df, B, C) 

Answer 3

からspread機能を使用してこれを行うことができます。以下は、あなたがNAの組み合わせを持っている場合でも動作します：

library(tidyr) 

spread(df, B, C) 

結果：

library(tidyverse) 

df %>% 
    spread(B, C) %>% 
    remove_rownames() %>% 
    column_to_rownames("A") %>% 
    as.matrix() 

結果：

 A add1 add2 
1 name1 1 NA 
2 name2 NA 2 
3 name3 3 3 

それとも、行列を好む場合

 add1 add2 
name1 1 NA 
name2 NA 2 
name3 3 3 

データ：

df <- read.table(text=' A B C 
       name1 add1 1  
       name2 add1 NA 
       name3 add1 3 
       name1 add2 NA  
       name2 add2 2 
       name3 add2 3', header=TRUE)