データからr行列またはテーブルを作成する方法

Question

csvのデータ形式は次のとおりです。このファイルを使ってヒートマップ用の行列を作成したいと思います。 R gglot私は使用するつもりです。

 
A B  C 
1 apple 3 
2 book 5 
4 bag 1 
9 desk 4 
10 apple 8 
11 book 66 
14 desk 2 

上記のファイルを使用してヒートマップのマトリックスを作成したいと考えています。

 1 2 4 9 10 11 14 
apple 3 0 0 0 8 0 0 
book 0 5 0 0 0 66 0 
bag 0 0 1 0 0 0 0 
desk 0 0 0 4 0 0 2 

私は注文のための初期ファイルに別の列を持っています。

 
A B  C  D 
1 apple 3  4 
2 book 5  1 
4 bag 1  2 
9 desk 4  3 
10 apple 8 4 
11 book 66 1 
14 desk 2  3 

このD注文列のために私のマトリックスをどのように注文できますか？または私は1-14の列の合計で注文したいと思います。

Answer 1

read.tableでこれを行うことができます。 R-GUIに?read.tableと入力すると、正しいパラメータを選択するためのヘルプが表示されます。

Answer 2

xtabsを使用できます。

d <- read.delim(textConnection(" 
A B C 
1 apple 3 
2 book 5 
4 bag 1 
9 desk 4 
10 apple 8 
11 book 66 
14 desk 2 
"), sep=" ") 

xtabs(C ~ B + A, d) 

     A 
B  1 2 4 9 10 11 14 
     0 0 0 0 0 0 0 
    apple 3 0 0 0 8 0 0 
    bag 0 0 1 0 0 0 0 
    book 0 5 0 0 0 66 0 
    desk 0 0 0 4 0 0 2 

Answer 3

上記のVincentのread.delimパーツとリシェープアプローチを使用します。エレガントではありません...

d <- read.delim(textConnection(" 
A B C 
1 apple 3 
2 book 5 
4 bag 1 
9 desk 4 
10 apple 8 
11 book 66 
14 desk 2 
"), sep=" ") 

Var1 <- rep(d[,1], d[,3]) 
Var2 <- rep(d[,2], d[,3]) 
d <- data.frame(Var1=Var1, Var2=Var2) 
d <- cast(melt(d), Var2~value) 

> d 
    Var2 1 2 4 9 10 11 14 
1 apple 3 0 0 0 8 0 0 
2 bag 0 0 1 0 0 0 0 
3 book 0 5 0 0 0 66 0 
4 desk 0 0 0 4 0 0 2