data.frameを（フラット）マトリックスに変換するにはどうすればよいですか？

Question

下記のdata.frameを与えられたマトリックスに変換するにはどうしたらいいですか？ data.frameの最初の2つの列には行変数が含まれ、他の列のすべての組み合わせ（値を含む列を除く）によって列が決定されます。理想的には、さらなるパッケージを必要としないソリューションを探しています（なしreshape2ソリューション）。また、ftable溶液もありません。

(df <- data.frame(c1=rep(c(1, 2), each=8), c2=rep(c(1, 2, 1, 2), each=4), 
        gr=rep(c(1, 2), 8), subgr=rep(c(1,2), 4, each=2), val=1:16)) 

c1 c2 gr1.subgr1 gr1.subgr2 gr2.subgr1 gr2.subgr2 
1 1 1   3   2   4 
1 2 5   7   6   8 
2 1 9   11   10   12 
2 2 13   15   14   16 

Answer 1

グループを構築するために、相互作用変数を使用します。

newdf <- reshape(df, idvar=1:2, direction="wide", 
      timevar=interaction(df$gr,df$subgr) , 
      v.names="val", 
      drop=c("gr","subgr")) 
names(newdf)[3:6] <- c("gr1.subgr1", "gr1.subgr2", "gr2.subgr1", "gr2.subgr2") 
newdf 
    c1 c2 gr1.subgr1 gr1.subgr2 gr2.subgr1 gr2.subgr2 
1 1 1   1   2   3   4 
5 1 2   5   6   7   8 
9 2 1   9   10   11   12 
13 2 2   13   14   15   16 

Answer 2

大丈夫 - これはほとんどあなたが望むように見えます。ヘルプファイルを読んでから、これはあなたが望むことをしなければならないようです。

reshape(df, idvar = c("c1", "c2"), timevar = c("gr", "subgr") 
     , direction = "wide") 
    c1 c2 val.c(1, 2, 1, 2) val.c(1, 1, 2, 2) 
1 1 1    NA    NA 
5 1 2    NA    NA 
9 2 1    NA    NA 
13 2 2    NA    NA 

なぜNA値で表示されるのかを完全に説明できません。しかし、多分ヘルプページからこのビットは説明する：

timevar 
the variable in long format that differentiates multiple records from the same 
group or individual. If more than one record matches, the first will be taken. 

は、私が最初にそれが列名にあいまいさがあった場合にはRは、あなたがそれを与えたが、そうでないかもしれない、それは部分一致機能をだ使用することを意味するためにかかりましたか？

df$newcol <- with(df, paste("gr.", gr, "subgr.", subgr, sep = "")) 

とのは、再びこれを試してみましょう：

reshape(df, idvar = c("c1", "c2"), timevar = "newcol" 
     , direction = "wide", drop= c("gr","subgr")) 

    c1 c2 val.gr.1subgr.1 val.gr.2subgr.1 val.gr.1subgr.2 val.gr.2subgr.2 
1 1 1    1    2    3    4 
5 1 2    5    6    7    8 
9 2 1    9    10    11    12 
13 2 2    13    14    15    16 

プレスト次に、私は、単一の列にgrとsubgrを組み合わせてみました！列名にval.を追加しないようにする方法を説明することはできませんが、私はあなた自身でそれを理解しておきます。私はそれがどこかのヘルプページにあると確信しています。また、あなたが要求した順序とは異なる順序でグループを配置しますが、データは正しいと思われます。

FWIWは、ここにあなたがまだ列名をクリーンアップする必要がありますがreshape2

> dcast(c1 + c2 ~ gr + subgr, data = df, value.var = "val") 
    c1 c2 1_1 1_2 2_1 2_2 
1 1 1 1 3 2 4 
2 1 2 5 7 6 8 
3 2 1 9 11 10 12 
4 2 2 13 15 14 16 

とソリューションです。